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 vote231 views1 answer
Excel vba last row of range
VBA
3 votes244 views1 answer
Vba http request json
VBA
0 vote247 views1 answer
Enable macros on opening workbook vba
VBA
0 vote244 views1 answer
Vba full date format
VBA
0 vote251 views1 answer
Vba remove last vbcrlf
VBA
0 vote242 views1 answer
Excel vba show developer tab
VBA
1 vote249 views1 answer
Vb.net get name by Selection Changed
VBA
1 vote240 views1 answer
Vba delete file
VBA
0 vote268 views1 answer
If statement vdhl
VBA
0 vote247 views1 answer
Loop through all text boxes in a form vb
VBA