Delete code after use

[hughaskew2]

'kay, so i'm a dummy.
have a workbook Template that i've added the following code to:

Private Sub Workbook_Open()
ans = InputBox("Name the new workbook")
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings
\FredFarnswithers\Desktop\" & ans & ".xls"
End Sub

works fine, however once saved, then reopened, the input box apears,
etc.
How do i get rid of the code, once the template is saved as a newly
named workbook?

Any help GRATEFULLY received!!
Hugh

 

[Guest]

It might be easiest to use an if statement in your code so it only runs when
the workbook name contains a certain string or you have your code create a
hidden defined name and have your code check for its existence.

If you really want to remove it, you can start by looking at this article:

http://support.microsoft.com/kb/172109
VBA: How To Delete a Sub Procedure After It Runs Once

 

[hughaskew2]

Tom, thanks for the answer. Ended up with:

Private Sub Workbook_Open()

If ActiveWorkbook.Name = "JobCostBook.xlt" Then
ans = InputBox("Name the new workbook - or heads will roll!")
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings
\FredFarnswiggle\Desktop\" & ans & ".xls"

'MsgBox "The New Workbook has been Saved to your Desktop
Folder named 'Job Costs' "

If ActiveWorkbook.Name <> "JobCostBook.xlt" Then MsgBox "Carry on,
Mates! Disregard those maggots on the 9th Floor"
End If
End Sub

works so far......
again, thank you!

It might be easiest to use an if statement in your code so it only runs when
the workbook name contains a certain string or you have your code create a
hidden defined name and have your code check for its existence.

If you really want to remove it, you can start by looking at this article:

http://support.microsoft.com/kb/172109
VBA: How To Delete a Sub Procedure After It Runs Once