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 vote154 views1 answer
VBA Loop through recordset
VBA
1 vote171 views1 answer
Sort using vba
VBA
1 vote156 views1 answer
Excel vba last column in range
VBA
4 votes173 views1 answer
Excel vba how to get a range's full address including sheet name
VBA
18 votes335 views2 answers
Vba make word from bytes
VBA
0 vote157 views1 answer
Vba get workbook name
VBA
1 vote148 views1 answer
How to do error handling in access vba
VBA
0 vote148 views1 answer
Vba text to general
VBA
0 vote138 views1 answer
How to self delete a vbscript file
VBA
0 vote153 views1 answer
Excel VBA web scraping
VBA