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 vote280 views1 answer
Excel vba delete columns in range
VBA
0 vote265 views2 answers
Excel vba number format file size
VBA
1 vote233 views1 answer
Excel vba saveas force overwrite
VBA
0 vote255 views1 answer
Pivot data source not accepting table named range vba
VBA
0 vote232 views1 answer
Vbnet click on dgv cells
VBA
0 vote250 views1 answer
Excel vba protect sheet
VBA
0 vote225 views1 answer
Vbscript abs
VBA
1 vote177 views1 answer
Vba Remove Case Sensitivity
VBA
-1 vote286 views1 answer
Vba sendkeys
VBA
0 vote238 views1 answer
Vba copy file
VBA