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 vote220 views1 answer
Vba excel do not recalculate before save
VBA
0 vote175 views1 answer
Vba DisplayGridlines
VBA
0 vote167 views1 answer
Excel vba chrw max value
VBA
1 vote168 views1 answer
Vba date to unix timestamp
VBA
0 vote202 views1 answer
Check if cell is dbnullvb.net
VBA
0 vote176 views1 answer
VBA Loop to range
VBA
1 vote159 views1 answer
Vba declare api 64 bit 32 bit
VBA
0 vote113 views1 answer
Excel autofilter vba
VBA
0 vote179 views2 answers
Open url from vba
VBA
0 vote174 views1 answer
Excel vba unmerge sheet
VBA