Kopieren eines Blatts ohne Code

Sub email ()
dim nachricht as object, OutputApp as object
dim pfad as string
dim WS as string
Pfad = "c:\temp"
set OutputApp = Createitem ("outlook.application")
activesheet.copy
activesheet.unprotect
with thisworkbook.vbproject.vbcomponents(activesheet.codename).codemodule
.deletelines 1, .countoflines
end with
activeworkbook.saveas pfad & "\" & activesheet.name & date
WS = activeworkbook.fullname
set nachricht = outputapp. createitem (0)
with nachricht
.subject....
.attachments.add WS
end with
activeworkbook.close
End Sub

Leider wird der VBA Code in der Kopie nicht gelöscht, so dass an dieser Stelle immer der Fehler kommt, weil ja in der worksheet_activate auf ein Makro verwiesen wird, das nicht vorhanden ist!
Weiß jemand wie ich den Code aus der Kopie bekommen ?
Danke schonmal,
Gruß Daniel
P.S. Nur einen bestimmten Range zu kopieren und dann in ein blankes sheet einzufügen wäre nur eine Notlösung, da oben beschriebenes Makro für verschiedene Blätter in meinem Workbook funzen soll....