Is there any way to find any shapes that have been inserted to a worksheet
and then delete them?

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?

Be careful with shapes. You may not want to delete them all.

There are lots of shapes that you may want to keep (comments, autofilter arrows,
datavalidation arrows).

Ron de Bruin has lots of tips he
http://www.rondebruin.nl/controlsobjectsworksheet.htm

"Patrick C. Simonds" wrote:

Is there any way to find any shapes that have been inserted to a worksheet
and then delete them?

--

Dave Peterson

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?

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?