I re-wrote you code to be more efficient

Sub CopyRanges()
'
' Test_cop_2 Macro
' Macro recorded 10/20/2009 by
'
for each sht in Sheets
if sht.name < "Sheet1" then
for Xoffset = 0 to 2
Set CopyRange = sht1.Range("A20:D39").offset(20 * Xoffset,0)
CopyRange.Copy _
Destination:=sht.Range("A20:D39").offset(0,6 * Xoffset)
next Xoffset
end if
next SHt

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