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 vote118 views1 answer
Excel vba scroll to cell
VBA
0 vote129 views1 answer
WGET FTP
VBA
8 votes145 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote134 views1 answer
Excel vba first column in range
VBA
1 vote74 views1 answer
Vba Remove Case Sensitivity
VBA
0 vote108 views1 answer
Vbnet add new ecel sheet
VBA
1 vote122 views1 answer
Excel vba saveas force overwrite
VBA
1 vote74 views1 answer
Vba listindex select multiple items vba
VBA
0 vote121 views1 answer
Excel vba remove formatting from cell
VBA
0 vote125 views1 answer
Find database connection string vb
VBA