Also, make sure that protection is turned off. You can turn it back on after
the delete takes place.

--
Regards,
John


"Don Guillett" wrote:

Or, if you don't know the name and you want to delete ALL shapes on a
particular sheet.

Sub deleteALLshapes()
For Each sh In Sheets("sheet3").Shapes
sh.Delete
Next sh
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Les Stout" wrote in message
...
Hello Bill S, you can try the following as well.

ActiveSheet.Shapes("CommandButton1").Delete

You must put in the name of the button if you changed it, the default
name is CommandButton1, CommandButton2 etc....


Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***