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 vote221 views2 answers
S yyyy-MM-dd em vb net
VBA
0 vote235 views1 answer
Excel vba protect sheet
VBA
0 vote220 views1 answer
Excel vba named range exists
VBA
0 vote194 views1 answer
Vba copy paste value only
VBA
1 vote210 views1 answer
Change the first item in a queue vb.net
VBA
0 vote216 views1 answer
Reference to a non-shared member requires an object reference
VBA
0 vote199 views1 answer
Vba type variable
VBA
0 vote223 views1 answer
COMO GRAVAR U VALOR NO ARQUIVO APPSETINGS EM VB NET
VBA
8 votes474 views1 answer
Vba make a short integer from two bytes
VBA
1 vote203 views1 answer
Random number generator vb.net
VBA