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 vote216 views1 answer
Vb window.minimize
VBA
0 vote222 views1 answer
Get current url vb.net
VBA
5 votes259 views1 answer
Vba low word from Long Integer
VBA
1 vote255 views1 answer
Vb.net get name by Cell Click
VBA
31 votes518 views1 answer
Excel vba function to convert column number to letter
VBA
0 vote240 views1 answer
VB Error Code BC30201
VBA
1 vote248 views1 answer
Vba optional
VBA
0 vote223 views1 answer
Vbnet check if string is only symbols
VBA
0 vote220 views1 answer
Get current year vb
VBA
0 vote218 views1 answer
Vb net check if file exists
VBA