Delete code when saving the file

Hello again,

I have posted already the problem to delete the code when sending a sheet via email and I have found the solution to the problem.

I tried to do the same when saving the file to specific folder, but i am facing problem.
The code that I am using now is:

Sub SaveFile()

Dim CurrentPath As String
Const PathToSaveTo As String = "C:\Documents and Settings\All Users\Documents\"
    'Store the current path
    CurrentPath = CurDir
    ''Change the path to the one we want
    'ChDrive "C"
    'ChDir PathToSaveTo
    ''or perhaps...
    SetCurrentDirectory PathToSaveTo    '"\\SomeServer\Some Path"
    'test to see if the folder is already saved in the correct folder
    
             With ThisWorkbook
            If .Path <> PathToSaveTo Then
            .SaveAs FileName:=PathToSaveTo & .Name
                     Else
            'file is already saved in folder therefore just save it
            .Save
            
        End If
    End With
    ''Change the path back
    'ChDrive CurrentPath
    SetCurrentDirectory CurrentPath
    
End Sub

Can I add somewhere in this code the lines that will delete the code form the file?

  Destwb.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule.DeleteLines 1, _
  Destwb.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule.CountOfLines

Can't you call the macro that deletes the code that you have in the other reply?

I would recommend that you test on a backup copy. Try

Option Explicit

Sub SaveFile()

    Dim CurrentPath As String
    Const PathToSaveTo As String = "C:\Documents and Settings\All Users\Documents\"
    'Store the current path
    CurrentPath = CurDir
    ''Change the path to the one we want
    'ChDrive "C"
    'ChDir PathToSaveTo
    ''or perhaps...
    SetCurrentDirectory PathToSaveTo    '"\\SomeServer\Some Path"
    'test to see if the folder is already saved in the correct folder

    With ThisWorkbook
        If .Path <> PathToSaveTo Then
            .SaveAs Filename:=PathToSaveTo & .Name
        Else
            'file is already saved in folder therefore just save it
            .Save
        End If
    End With
    DeleteAllVBACode
    ''Change the path back
    'ChDrive CurrentPath
    SetCurrentDirectory CurrentPath

End Sub

For others' reference,this is a continuation of an earlier post