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

8 votes389 views1 answer
Excel vba make a short integer from two bytes
VBA
5 votes262 views1 answer
Excel vba first byte from INTEGER
VBA
0 vote253 views1 answer
Convert number to minutes in vba
VBA
0 vote236 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA
0 vote233 views1 answer
Type excel.application is not defined vb
VBA
0 vote260 views1 answer
Vbscript check if string contains
VBA
0 vote237 views2 answers
Excel vba close without saving
VBA
0 vote226 views1 answer
Vba remove numbers from string
VBA
0 vote250 views1 answer
Vba array of integers
VBA
1 vote266 views1 answer
Vb.net get name by Cell Click
VBA