Answers for "vba 3 dimension array"

VBA
0

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
Posted by: Guest on February-12-2021

Code answers related to "VBA"

Browse Popular Code Answers by Language