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

1 vote170 views2 answers
Excel vba password protect
VBA
0 vote197 views1 answer
Remove series name from legendvbnet
VBA
0 vote186 views1 answer
Excel vba disable screen update
VBA
0 vote185 views1 answer
Label de tableau dans des label.text en VBA
VBA
2 votes185 views1 answer
Vba round number
VBA
0 vote201 views1 answer
VBA Sleep Snippet
VBA
0 vote191 views1 answer
Vba add shape oval
VBA
0 vote192 views1 answer
Get month number from month name vbnet
VBA
0 vote177 views2 answers
Excel vba close without saving
VBA
0 vote179 views1 answer
Vb.net change cursor to wait
VBA