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 vote233 views1 answer
Excel vba DisplayAlerts
VBA
0 vote238 views1 answer
Vba extract filename from path
VBA
0 vote235 views1 answer
VBA
VBA
0 vote211 views1 answer
Excel run macro every 5 minutes
VBA
0 vote226 views1 answer
Weekday vba
VBA
5 votes214 views1 answer
Excel formula how to create strings containing double quotes
VBA
6 votes230 views1 answer
Excel vba isalpha
VBA
8 votes487 views1 answer
Vba convert 2 bytes to an integer
VBA
0 vote216 views1 answer
Ribbon show/hide
VBA
0 vote224 views1 answer
Remove first character from string vb
VBA