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