I would try two things:
replace your code with:
Sheets("Temp").Copy Befo=Sheets("Temp")
or in stead of a not visible sheet
insert a template sheet:
Sheets.Add Type:= "C:\Template.xlt"
the last way is the better way I thin
--
Kaa
-----------------------------------------------------------------------
Kaak's Profile:
http://www.excelforum.com/member.php...nfo&userid=751
View this thread:
http://www.excelforum.com/showthread.php?threadid=38748