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 vote127 views1 answer
Test if form is open vb
VBA
0 vote132 views1 answer
Freeze panes vba
VBA
8 votes209 views1 answer
Vba make integer
VBA
32 votes258 views2 answers
Excel vba column letter
VBA
0 vote118 views1 answer
Find days in month vba
VBA
0 vote124 views1 answer
Vba text to general
VBA
0 vote128 views1 answer
Enable macros on opening workbook vba
VBA
0 vote140 views1 answer
.net crash app
VBA
0 vote161 views1 answer
Amd64 vs arm64 linux
VBA
0 vote131 views1 answer
Excel vba calculate
VBA