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 vote211 views1 answer
Vba code to open a file with login rights
VBA
0 vote231 views1 answer
Excel vba chrw max value
VBA
0 vote254 views1 answer
Visual stuiod not recognising desgined labels
VBA
0 vote221 views1 answer
Style percent not found vba
VBA
0 vote242 views1 answer
Vba compare strings
VBA
0 vote272 views2 answers
Delete all controls from list of control vb.net
VBA
2 votes297 views1 answer
Vba round number
VBA
0 vote261 views1 answer
Vba remove the first character of string
VBA
0 vote251 views1 answer
Vba table header name
VBA
5 votes255 views1 answer
Vba low byte from INTEGER
VBA