No need for the loop, simply

Sheets("Sheet1").DrawingObjects.Delete

(won't delete comments or filter arrows)

Regards,
Peter T

"ryguy7272" wrote in message
...
You can try this:
Sub CleanRectangles()

Dim i As Integer
i = 1
Do Until i 7
Sheets("Sheet1").Rectangles.Delete
Sheets("Sheet1").Lines.Delete
'etc., etc., etc.,
i = i + 1
Loop

End Sub

Regards,
Ryan---

--
RyGuy


"Don Guillett" wrote:

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?