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 vote317 views1 answer
Vba select file in folder
VBA
0 vote346 views1 answer
Vba test optional argument
VBA
0 vote315 views1 answer
Vba copy paste value only
VBA
0 vote360 views2 answers
Excel vba number format file size
VBA
0 vote322 views1 answer
Visual basic msdos
VBA
4 votes339 views1 answer
Excel vba determine number of elements in an array
VBA
0 vote348 views1 answer
Excel vba select multiple shapes
VBA
0 vote330 views1 answer
Telephon call in vba
VBA
4 votes339 views2 answers
Excel vba last column with data
VBA
3 votes330 views1 answer
Excel vba change format of cell
VBA