Sub ShapesCut()
For Each s In ActiveSheet.Shapes
s.Cut
Next
End Sub
'or
Sub shapescut1() 'Tom Ogilvy
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Patrick C. Simonds" wrote in message
...
Is there any way to find any shapes that have been inserted to a worksheet
and then delete them?