Choi Fan,

Option Explicit
Sub ArrayDimension()
Dim vArray As Variant
ReDim vArray(0 To Sheets(1).Range("A1").Value)
MsgBox UBound(vArray, 1)
End Sub

The traffic is hell in Central if you are trying to get home that way. Just
took me 25 minutes to get past the Convention Centre from the Star Ferry.

Robin Hammond
www.enhanceddatasystems.com

"Yiu Choi Fan" wrote in message
...
Hi all,

In my Excel VBA program, I have to define an array, but the dimension
of
this array is a variable, which dependents on the value in cell B1. I
think
this is an easy problem but I don't know how to solve it _<

Thanks very much for your help!!

Best wishes
C.F. Yiu