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