delete routine after its run

[ajm]

how do i delete a button and sub routine after it has run. actually, i want to remove it from the workbook it creates, not from the template it is in. background: the code creates a new workbook and names it similarly to the original. I would like to include something to NOT copy the command button and routine across into the new workbook. any ideas?

 

[Smitty]

Check out Chip Pearson's Programming to the VBE.

He includes the code for deleting code/modules.

You can record deleting the button.

HTH,

Smitty

 

[ajm]

i just used the macro recorder to delete the button itself and then pasted the code "ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete" into my routine before it saves the new workbook. seems to work ok. cheers.

 

[Smitty]

If there's a chance the button will be on a sheet other than the activesheet, you might want to refer to it specifically:

Sheets("Sheet1").Shapes("CommandButton1").Delete

Note the Select/Selection part can be eliminated altogether.

Smitty