From Chip Pearson, code to clear sheet module. Then copy sheet to new wb.

With ThisWorkbook
With .VBProject.VBComponents(.Worksheets("sheet17").Cod eName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End With

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Dave" wrote in message
...
Hi
XL2003
When copying a sheet into another worbook using VBA, is it possible to do
so
without also copying any code in that sheet's code window?
ie, I have a sheet with some event code, which I want copied into another
workbook, without it's event code.
Regards - Dave.