Hello !

The question says it all. I wish to copy my worksheets and remove any code
attached to them.
Is there any better way than brutally copying UsedRange and then all the
formats ?

Thanks to those would know...

Hi Pm

If there is no event code in the sheet module you can create a new workbook with the sheet like this

Sub test()
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs "C:\ron.xls"
.Close False
End With
End Sub

Or
Sheets(Array("Sheet1", "Sheet3")).Copy
Or
Worksheets.copy

See also Chip pearson's site for code that delete code
http://www.cpearson.com/excel/vbe.htm

If you want it easy then you can use my SendMail addin and send a copy to yourself
The Add-in have a option to delete the code
http://www.rondebruin.nl/mail/add-in.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"PM" wrote in message ...
Hello !

The question says it all. I wish to copy my worksheets and remove any code attached to them.
Is there any better way than brutally copying UsedRange and then all the formats ?

Thanks to those would know...