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 vote309 views1 answer
Excel vba formatconditions positive
VBA
0 vote314 views1 answer
Enable macros on opening workbook vba
VBA
0 vote301 views1 answer
Change "location" of binding navigator vb
VBA
0 vote407 views1 answer
Vba vbcrlf chr
VBA
0 vote310 views1 answer
Ribbon show/hide
VBA
0 vote286 views1 answer
Excel vba populate array with cell values
VBA
0 vote335 views1 answer
Style percent not found vba
VBA
1 vote303 views1 answer
Excel vba autofit
VBA
0 vote338 views1 answer
Vba remove the first character of string
VBA
0 vote351 views1 answer
(SecurityProtocolType)3072 vb.net
VBA