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 vote130 views1 answer
Prive sub enter clicked vb
VBA
-1 vote120 views1 answer
For i in range vba
VBA
0 vote131 views1 answer
Vbnet find highest value in chart
VBA
0 vote115 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA
0 vote172 views1 answer
Visual basic cmd
VBA
0 vote117 views1 answer
Vba test optional argument
VBA
0 vote129 views1 answer
Vb.net visible property dgv collumn not working
VBA
0 vote116 views1 answer
Add items to combobox vb.net
VBA
0 vote121 views1 answer
Loop through lines in text file vb net
VBA
0 vote134 views1 answer
VBA
VBA