Remove VBA code used in template

[cm3pyro]

I am working on a template that when the information is entered and the user clicks the SaveAs button the SaveAs dialog window directs them to the correct directory and inserts a SaveAs file named based on the value of a cell in the work book.

All of this works great. My problem is, if I need to edit a workbook I made using this template Excel will not let me save the file.

Is there a way to delete the VBA code used for the template so it does not transfer over into my .xls document?

thanks

 

[BrianB]

Here is the basic code to delete Code modules. You can incorporate it ito your code. When we save a workbook the new becomes the active one.

'===============================================================
'- DELETE STANDARD & CLASS MODULES FROM A WORKBOOK
'- Checks each one. Message box option to delete or keep
'- Brian Baulsom August 2007
'===============================================================
Sub REMOVE_CODEMODULES()
    Dim MyModule As Object
    '----------------------------------------------------------
    With ActiveWorkbook.VBProject
    For Each MyModule In .vbComponents
        Select Case MyModule.Type
            Case 1, 2 ' standard or class module
                SheetType = "Standard or Class Module"
                SheetName = MyModule.Name
                '---------------------------------------------
                '-
                MsgReply = MsgBox("Remove Code module : " _
                    & SheetName & " ?", vbYesNoCancel)
                If MsgReply = vbCancel Then Exit Sub
                If MsgReply = vbYes Then
                    .vbComponents.Remove MyModule
                End If
                '---------------------------------------------
        End Select
    Next
    End With
End Sub
'==============================================================