delete button from workbook

[sal21]

I have this sheet, and i send it via outlook code:

(part of code)

...
'here code to delete the button
ThisWorkbook.Sheets("TEMPLATE").Copy
Set WB = ActiveWorkbook
WB.Sheets("TEMPLATE").Name = Replace(NOME_SHEET, " ", "_") & "-" & Format(DATA1, "DDMMYYYY")
....

but before to send is possible to delete the "pulsante 1"?

[HansV]

If you want to delete the button from the copy, use

...
Set WB = ActiveWorkbook
WB.Sheets("TEMPLATE").Shapes("Pulsante 1").Delete
...

If you want to delete the button before copying the TEMPLATE sheet, use

...
ThisWorkbook.Sheets("TEMPLATE").Shapes("Pulsante 1").Delete
ThisWorkbook.Sheets("TEMPLATE").Copy
...