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

4 votes167 views1 answer
Excel vba check cell not empty
VBA
0 vote198 views1 answer
Vba change active sheet
VBA
0 vote178 views1 answer
Vbnet find highest value in chart
VBA
0 vote186 views1 answer
How to add line graph vb net
VBA
0 vote156 views1 answer
Vbnet display all axis labels in cahrt
VBA
0 vote166 views1 answer
Enter into cells data grid view
VBA
0 vote171 views1 answer
Excel vba disable keyboard input
VBA
1 vote175 views1 answer
Excel vba get column name from number
VBA
0 vote185 views1 answer
VBA Loop to range
VBA
0 vote176 views1 answer
How to mount floppy disks in vb.net
VBA