Brian, try this code:
Code:
--------------------
Sub removeShapes()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
sh.Delete
Next sh
End Sub
--------------------
--
Paul
- Paul
------------------------------------------------------------------------
Paul's Profile: 1697
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=192733
http://www.thecodecage.com/forumz