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 vote175 views1 answer
Vba paste values
VBA
0 vote173 views1 answer
Vbnet convert charatcer to binary
VBA
0 vote148 views1 answer
Vbnet add new ecel sheet
VBA
0 vote159 views1 answer
Excel vba current folder
VBA
3 votes158 views1 answer
Vba folderexists
VBA
0 vote171 views1 answer
Excel delete ever other vba
VBA
0 vote178 views1 answer
Vba vbcrlf chr
VBA
-1 vote165 views1 answer
Vba code to add new column in table
VBA
1 vote184 views1 answer
Vb.net get name by Cell Click
VBA
0 vote175 views1 answer
Vba keep command window open
VBA