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 vote281 views1 answer
Vba horizontalalignment
VBA
8 votes315 views1 answer
Excel vba make integer
VBA
3 votes263 views1 answer
Vba make long from two shorts
VBA
0 vote260 views1 answer
Change form background image vb
VBA
1 vote261 views1 answer
Highlight selected cell in excel vba
VBA
0 vote276 views1 answer
Vb get ip address
VBA
2 votes260 views2 answers
Excel vba copy values range to another range
VBA
0 vote293 views2 answers
VB
VBA
0 vote280 views1 answer
Loop through each cell in dgv vbnet
VBA
0 vote269 views1 answer
Internet explorer reference vba
VBA