Sub test()

Dim Mytotals() As Variant

ReDim Mytotals(LBound(Array1) To UBound(Array1))

For i = LBound(Array1) To UBound(Array1)
Mytotals(i) = Range("SubTotal").Value
Next i

End Sub


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=157526

Microsoft Office Help