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

15 votes276 views1 answer
Excel vba wait
VBA
0 vote174 views1 answer
Remove last 8 characters from string vb
VBA
0 vote188 views1 answer
Vbnet click on dgv cells
VBA
0 vote182 views1 answer
Vba pass named range to function
VBA
0 vote173 views2 answers
Get excel file from email attachment in vba
VBA
0 vote183 views1 answer
Vba verticalalignment
VBA
0 vote174 views1 answer
Excel vba scroll to cell
VBA
5 votes201 views1 answer
Excel vba last byte from INTEGER
VBA
0 vote188 views2 answers
Excel vba protect cells with formula
VBA
1 vote184 views1 answer
Excel vba get column number from column name
VBA