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 vote156 views1 answer
Excel vba first and last row and column in range
VBA
0 vote152 views1 answer
Vba code to open a file with login rights
VBA
1 vote167 views1 answer
Vba format string as cash
VBA
0 vote150 views1 answer
Excel vba address not absolute
VBA
0 vote146 views1 answer
Excel text to columns line break
VBA
0 vote168 views1 answer
Power query M substract minimum value of column -dax
VBA
0 vote162 views1 answer
Excel vba protect worksheet without password
VBA
0 vote161 views1 answer
.net dark title bar
VBA
0 vote146 views1 answer
Excel vba milliseconds
VBA
18 votes299 views3 answers
Excel-vba make integer
VBA