Programically remove code from a worksheet
 

I have a workbook that I need to copy a particular sheet out to save in a
separate workbook. This part is done and works.
The worksheet has an Activate piece that shows a user form. When I copy the
worksheet into its own workbook, programically, the code comes with it. When
the sheet is activated in the new workbook the code erros out because the
user form is not copied over with it, the userform is not needed in the new
workbook. How can I programically removed the Worksheet_Activate code when
the worksheet is programically copied out?

Thanks for any help
--
Stephen

Programically remove code from a worksheet
 

hi
see this site
http://cpearson.com/excel/vbe.aspx
make note of the warning.

Regards
FSt1

"Stephen sjw_ost" wrote:

I have a workbook that I need to copy a particular sheet out to save in a
separate workbook. This part is done and works.
The worksheet has an Activate piece that shows a user form. When I copy the
worksheet into its own workbook, programically, the code comes with it. When
the sheet is activated in the new workbook the code erros out because the
user form is not copied over with it, the userform is not needed in the new
workbook. How can I programically removed the Worksheet_Activate code when
the worksheet is programically copied out?

Thanks for any help
--
Stephen

Programically remove code from a worksheet
 

You may be happier copying and pasting the data vs. trying to delete the code.
I avoid writing code that alters code if at all possible.
If you must/want/have to do that then Chip Pearson's website has instructions...
http://www.cpearson.com/excel/vbe.aspx

Alternatively, something like the following can be used...
'--
Sub PutErThere()
Dim rng As Range
'Find the bottom right cell
Set rng = ThisWorkbook.Worksheets _
("Sludge").Cells.SpecialCells(xlCellTypeLastCel l)
'Establish the range to copy
Set rng = ThisWorkbook.Worksheets _
("Sludge").Range("A1", rng)
'Copy and paste
rng.Copy _
Destination:=Workbooks("NewBook").Worksheets(1).Ra nge("A1")
'Clean up
Application.CutCopyMode = False
Set rng = Nothing
End Sub
--
Jim Cone
Portland, Oregon USA




"Stephen sjw_ost"

wrote in message
I have a workbook that I need to copy a particular sheet out to save in a
separate workbook. This part is done and works.
The worksheet has an Activate piece that shows a user form. When I copy the
worksheet into its own workbook, programically, the code comes with it. When
the sheet is activated in the new workbook the code erros out because the
user form is not copied over with it, the userform is not needed in the new
workbook. How can I programically removed the Worksheet_Activate code when
the worksheet is programically copied out?

Thanks for any help
--
Stephen