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 vote217 views1 answer
(SecurityProtocolType)3072 vb.net
VBA
0 vote188 views1 answer
Move bindingnavigator vb
VBA
0 vote197 views1 answer
If statement vdhl
VBA
0 vote171 views1 answer
Default host vbox address
VBA
0 vote165 views1 answer
Open application from vbnet
VBA
0 vote202 views1 answer
Como ler subitem de um array em json usando vbnet
VBA
0 vote174 views1 answer
Vba min
VBA
0 vote188 views1 answer
Ribbon show/hide
VBA
0 vote168 views1 answer
Vba collection key list
VBA
0 vote195 views1 answer
Vba userform textbox wrap text
VBA