Hi All
i have a template file (XLT) that saves a copy of the file with file name from specified cells in workbook to specified folder ,which works great after some help from the guys here .

what id like to do is remove all the macros in the workbook when the file is saved,ive tried serching but cant find a macro todo this,

the save macro runs from a button in the sheet

heres the code that i use to save

any help would be great.

Private Sub CommandButton1_Click()

'SaveAs Macro
'

If Range("E3") = 0 Then
       MsgBox "Please Enter Name"
       Exit Sub
     End If

strFilename = (Range("E10").Text & " Quote " & Range("E3").Text & ".xls")
strPath = "C:\Data\" & Range("E10").Text
On Error Resume Next
        MkDir strPath
    On Error GoTo 0


If strFilename <> False Then
 
 On Error GoTo errhandler
 

 ActiveWorkbook.SaveAs strPath & "\" & strFilename
  MsgBox "Estimate has been saved as " & strPath & "\" & strFilename, , "FILE SAVED!"

End If
 Exit Sub

errhandler:  MsgBox "FILE HAS NOT BEEN SAVED PLEASE ENTER CLIENT NAME !", , "WARNING"

'End Sub
    'Sub PrintSheets()
'print sheets only listed in array below
    'Dim aShtLst As Variant
    
    'aShtLst = Array("Estimate", "Summary") '"Sheet2")
    
    'ThisWorkbook.Sheets(aShtLst).PrintOut
   End Sub
Thanks