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 vote294 views1 answer
Vb get ip address
VBA
0 vote257 views1 answer
Excel vba concatenate range
VBA
0 vote341 views1 answer
How to call gcd in vba
VBA
5 votes331 views1 answer
Excel vba first byte from INTEGER
VBA
0 vote303 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA
0 vote288 views1 answer
Remove frist letter from string vbnet
VBA
0 vote304 views2 answers
Get unique random number in vb.net
VBA
1 vote294 views1 answer
Extract the second word in a text in excel
VBA
0 vote295 views1 answer
Xlbycolumns is not declared
VBA
11 votes405 views1 answer
Excel vba How to URL encode a string
VBA