create a copy of a sheet and insert it into the same workbook.
 

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