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 vote181 views2 answers
How close excel through visual basic
VBA
0 vote220 views1 answer
Vba cell all borders
VBA
0 vote179 views1 answer
Vba change named range address
VBA
0 vote186 views1 answer
Vba string
VBA
0 vote193 views1 answer
Vbnet convert charatcer to binary
VBA
0 vote206 views1 answer
Vba search string position
VBA
1 vote192 views1 answer
Excel date to unix timestamp
VBA
3 votes177 views1 answer
Vba folderexists
VBA
0 vote168 views1 answer
Remove frist letter from string vbnet
VBA
1 vote178 views1 answer
Vba reverse string
VBA