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

5 votes226 views1 answer
Excel vba low byte from INTEGER
VBA
0 vote218 views1 answer
Vba string start with
VBA
0 vote220 views1 answer
Vba text to general
VBA
1 vote221 views1 answer
Vba compile error object required
VBA
22 votes293 views1 answer
Excelvba check for directory
VBA
0 vote235 views1 answer
Excel vba textbox forecolor disabled
VBA
0 vote184 views1 answer
How to sort datagridview in vb.net
VBA
0 vote211 views1 answer
Excel vba extract year
VBA
0 vote243 views1 answer
Vba foreach 2d array
VBA
0 vote237 views4 answers
How to continue formula in below line in vba code
VBA