Gary,
that worked great. i'm not sure why it worked, but it did.
thanks for your time.
fred








On Tue, 19 Sep 2006 12:45:06 -0400, "Gary Keramidas"
<GKeramidasATmsn.com 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)
arr(n) = 5
Next n
End Sub