Comments on: Count Array Dimensions

By: marco vismara

marco vismara — Thu, 09 Nov 2006 16:30:00 +0000

dl = UBound(WorksheetFunction.Transpose(divmatrix))

Colo — Fri, 02 Jul 2004 11:16:00 +0000

Very nice approach Rob!

Rob van Gelder — Thu, 01 Jul 2004 22:20:00 +0000

Here's the code I use for that purpose.

Sub test()
Dim arr(1, 2, 3, 4) As Long
Dim i As Long

On Error Resume Next
Do: i = i - (LBound(arr, i + 1) * 0 = 0): Loop Until Err.Number
On Error GoTo 0

MsgBox i
End Sub