Thanks again. I'll just have to remove the code manually. I just like not
having to remember to save the file a certain way in a certain location.
--
I am running on Excel 2003, unless otherwise stated.


"NickH" wrote:

Hi Orion,

I don't believe you can write code that commits suicide and then saves
itself which is effectively what you are trying to do.

Another alternative then is to copy the Template's sheets to a new
workbook and then save that...

Private Sub Workbook_Open()
Dim wbk As Workbook
Dim i As Long

ThisWorkbook.Sheets(1).Copy
Set wbk = ActiveWorkbook

' Change n to the last sheet you want to copy
For i = 2 To n
ThisWorkbook.Sheets(i).Copy After:=wbk.Sheets(i - 1)
Next i

' Rest of your code here to save wbk etc.

End Sub

....this is a bit quick and dirty but hopefully gives you something to
build on.

Br,
NickH