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

3 votes234 views1 answer
Vba post request json
VBA
1 vote215 views1 answer
Highlight selected cell in excel vba
VBA
0 vote220 views1 answer
Rotate image by any angle vb.net
VBA
0 vote236 views1 answer
Vba multiple optional arguments
VBA
0 vote226 views1 answer
Pivot data source not accepting table named range vba
VBA
0 vote227 views1 answer
Vba option button selected
VBA
1 vote209 views1 answer
Excel vba Populating a combobox on a userform from a range of cells
VBA
0 vote225 views1 answer
How to get the value of optionbutton in vba
VBA
0 vote227 views1 answer
How to get value from clipboard in vbnet
VBA
0 vote224 views1 answer
Sort dictionary by key vba
VBA