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 vote143 views1 answer
Loop through all text boxes in a form vb
VBA
5 votes154 views1 answer
Excel vba low byte from INTEGER
VBA
0 vote139 views1 answer
Vba string start with
VBA
0 vote139 views1 answer
Limit combobox to list vba
VBA
31 votes264 views1 answer
Excel vba function to convert column number to letter
VBA
0 vote130 views1 answer
Excel vba disable screen update
VBA
0 vote131 views2 answers
Excel vba prevent save
VBA
0 vote139 views1 answer
Excel vba Column Name from Column Number
VBA
1 vote133 views2 answers
Vba function return array
VBA
0 vote124 views1 answer
Vba argument is set
VBA