Sub Main Dim A(3,6) Debug.Print UBound(A) ' 3 Debug.Print UBound(A,1) ' 3 Debug.Print UBound(A,2) ' 6 End Sub