Sorry Ian,

Sub DeleteProcedure()
Dim oVBMod As Object
Dim iStart As Long
Dim cLines As Long

Set oVBMod =
ThisWorkbook.VBProject.VBComponents("ThisWorkbook" ).CodeModule
With oVBMod
iStart = .ProcStartline("Workbook_Open", 0)
cLines = .ProcCountLines("Workbook_Open", 0)
.DeleteLines iStart, cLines
End With

End Sub


--
HTH

Bob Phillips

"IC" wrote in message
...
Bob, there's no code in your post.

Ian

"Bob Phillips" wrote in message
...
Here is some code to delete the Workbook_Open code

--
HTH

Bob Phillips

"chiv" wrote in message
...

Good day all, I wonder if anyone has come across this before?

I have a 'private sub' macro which runs when a template is opened. The
utility of this is to assign an incremental Project ID to the template
each time it is opened. Obviously, the template is then saved under a
different name...as well as being saved as an .xls file.

The problem: The private sub code is still there when the new named
worksheet is opened and the increment still clicks up one number
everytime the sheet is opened. I have been trying to write code to
insert after the existing code in the .xlt file which will effectively
delete the code once the template has assigned a number.

I am afraid I have not been able to do this, so any help would be
greatly appreciated.

Thank you.


--
chiv

------------------------------------------------------------------------
chiv's Profile:
http://www.excelforum.com/member.php...o&userid=23400
View this thread:
http://www.excelforum.com/showthread...hreadid=373371