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

1 vote149 views1 answer
Excel vba last column in range
VBA
1 vote149 views1 answer
Change the first item in a queue vb.net
VBA
1 vote154 views1 answer
Excel vba get column number from column name
VBA
0 vote157 views1 answer
Vba dictionary length
VBA
0 vote164 views1 answer
Visual stuiod not recognising desgined labels
VBA
0 vote184 views1 answer
Check if cell is dbnullvb.net
VBA
1 vote152 views1 answer
Excel vba to lower case
VBA
1 vote171 views1 answer
Extract the second word in a text in excel
VBA
0 vote153 views1 answer
Selecttoken em vbnet e json
VBA
0 vote149 views1 answer
VB get external IP address
VBA