Vba array dimensions

Public Function ArrayDimensions(ByRef Arr As Variant) As Integer
    Dim indDim As Integer
    Dim result As Integer
    On Error Resume Next
    Do
        indDim = indDim + 1
        result = UBound(Arr, indDim)
    Loop Until err.Number <> 0
    ArrayDimensions = indDim - 1
End Function

Similar codes

1 vote333 views1 answer
Excel vba convert cells(1,1) into A1 and vice versa
VBA
0 vote378 views1 answer
Windows Forms dark title bar
VBA
8 votes505 views1 answer
Vba convert 2 bytes to an integer
VBA
4 votes358 views2 answers
Excel vba last column with data
VBA
0 vote349 views1 answer
Vbnet line chart showing extra space
VBA
-1 vote370 views1 answer
Vba code to add new column in table
VBA
0 vote336 views1 answer
Windows Presentation Foundation dark title bar
VBA
0 vote360 views1 answer
Excel vba select multiple shapes
VBA
0 vote365 views1 answer
VBA is form loaded
VBA
0 vote349 views1 answer
Search in richtextbox vb.net
VBA