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 vote277 views1 answer
Vba paste values
VBA
0 vote283 views1 answer
Vba get application version
VBA
5 votes344 views1 answer
Excel vba last byte from INTEGER
VBA
0 vote314 views2 answers
S yyyy-MM-dd em vb net
VBA
0 vote271 views1 answer
Check if program is running vbnet
VBA
0 vote308 views2 answers
VB
VBA
0 vote275 views1 answer
Vba add month to date
VBA
0 vote319 views1 answer
If statement vdhl
VBA
0 vote282 views1 answer
Dlete rows with blanks and space " " vba
VBA
0 vote286 views1 answer
Excel vba move down to next visible cell
VBA