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 vote375 views1 answer
Excel vba first row in range
VBA
0 vote367 views1 answer
.net crash app
VBA
0 vote340 views1 answer
Excel autofilter vba
VBA
1 vote350 views1 answer
Highlight selected cell in excel vba
VBA
0 vote359 views1 answer
Vbnet get file name from path
VBA
0 vote371 views1 answer
Vba loop through textboxes
VBA
0 vote388 views1 answer
Excel filter by date not working vba
VBA
2 votes346 views1 answer
Excel vba extract file name
VBA
0 vote382 views3 answers
Write to text file vb.net
VBA
31 votes496 views1 answer
Excel-vba how to convert a column number into an excel column
VBA