Thanks, that will work too, especially if there are a lot of controls on the
sheet. Fortunately, I only have 2 controls so I inserted a simple...

If ThisShape.Name < "MyButtonName" then
ThisShape.Delete
End If


"Ron de Bruin" wrote:

See the information on this page
http://www.rondebruin.nl/controlsobjectsworksheet.htm


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


"thadpole" wrote in message ...
Thank you!!! It worked, except it deleted all my buttons on the worksheet
too! I forgot buttons were actually shapes as well.


"K Dales" wrote:

Dim ThisShape as Shape
For Each ThisShape in Worksheets("SheetName").Shapes
ThisShape.Delete
Next ThisShape
--
- K Dales


"thadpole" wrote:

Is there a quick and simple code to delete ALL shapes on a worksheet?
Thanks!