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

0 vote333 views1 answer
Make all controls in an area not visable vb
VBA
0 vote340 views1 answer
How to get the value of optionbutton in vba
VBA
0 vote364 views1 answer
Pivot data source not accepting table named range vba
VBA
0 vote318 views1 answer
How to make a a msgbpx in vbs
VBA
0 vote336 views1 answer
Openfiledialog specific folder
VBA
0 vote322 views1 answer
Label de tableau dans des label.text en VBA
VBA
-1 vote387 views1 answer
Vba sendkeys
VBA
0 vote353 views1 answer
Vba registry settings
VBA
5 votes390 views1 answer
Vba low byte from INTEGER
VBA
2 votes351 views1 answer
Excel vba check if string entirely alpha
VBA