Thank Chip

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Dave" wrote in message
...
Hi Don,
Thanks for that. Works a treat.
Regards - Dave.

"Don Guillett" wrote:

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.