Sub deleteshapes()
For Each shp In ActiveSheet.Shapes
shp.Delete
Next shp
End Sub
--
i-Zapp
------------------------------------------------------------------------
i-Zapp's Profile:
http://www.excelforum.com/member.php...fo&userid=5768
View this thread:
http://www.excelforum.com/showthread...hreadid=479462