In the case Array1 is 1D...

With Xl.Sheets("Sheet2").Range("A1")
.Resize(1,UBound(Array1)) = Array1
End With

...and only for 1 elem! That means you have to step through the code and
end it after the data is dumped.

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion