ActiveWorkbook.Worksheets("Sheet1").Range("a2", "d2000").Copy _
Destination:=Worksheets("Sheet2").Range("a2")


--
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=158445

Microsoft Office Help