Chip Pearson wrote:
The following function will return the number of dimensions in an array.
It will return 0 if the variable is not an array or is an unallocated
array.


Function NumBounds(V As Variant) As Long
Dim N As Long
Dim LB As Long
On Error Resume Next
Do Until Err.Number < 0
N = N + 1
LB = LBound(V, N)
Loop
NumBounds = N - 1
End Function




Yes I know. Thanks.
I would prefer solution where rng.value is always 2-dim array

or something like Make2D (rng.value)
It can't be

for x = 1 ...
for y = 1 ....

it is too slow.