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 vote228 views1 answer
Loop through lines in text file vb net
VBA
0 vote211 views1 answer
Excel vba disable screen update
VBA
0 vote213 views1 answer
Vba remove numbers from string
VBA
0 vote235 views1 answer
Vba word open document read only
VBA
0 vote213 views1 answer
Excel vba address not absolute
VBA
0 vote235 views1 answer
Putting marquee in vb.net
VBA
1 vote224 views1 answer
Add control vb
VBA
0 vote215 views1 answer
Excel vba remove formatting from cell
VBA
0 vote233 views1 answer
Vbnet line chart showing extra space
VBA
2 votes230 views1 answer
Excel vba check if string entirely alpha
VBA