I left out cells
from
'paste values
NewSht.PasteSpecial _
Paste:=xlPasteValues
'paste formats
NewSht.PasteSpecial _
Paste:=xlPasteFormats
to
'paste values
NewSht.cells.PasteSpecial _
Paste:=xlPasteValues
'paste formats
NewSht.cells.PasteSpecial _
Paste:=xlPasteFormats
--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=165571
Microsoft Office Help