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 vote229 views1 answer
Excel run macro every 5 minutes
VBA
0 vote230 views1 answer
Refresh token em vb net
VBA
1 vote227 views1 answer
What does vbs stand for
VBA
0 vote208 views1 answer
Remove frist letter from string vbnet
VBA
0 vote249 views1 answer
Vba character ascii code
VBA
0 vote229 views1 answer
Vba len variant
VBA
0 vote226 views1 answer
Vbnet find highest value in chart
VBA
0 vote256 views1 answer
Vbnet check if string is only letters
VBA
3 votes259 views2 answers
Vba active workbook path
VBA
0 vote229 views1 answer
Vba get workbook name
VBA