sorry, i was playing around and forgot to remove that line

--


Gary


"Alan Beban" <unavailable wrote in message
...
Gary Keramidas wrote:
see if this will work

Sub test()
Dim arr As Variant
Dim x As Integer, n As Integer
ReDim arr(100)

For n = 1 To 100
ReDim Preserve arr(1 To n)'<--What's the point of this?
arr(n) = 5
Next n
End Sub


Alan Beban