Whats the VBA code to delete all the shapes on a worksheet?

Sub TryNow()
Dim mySht As Worksheet
Set mySht = ActiveSheet
mySht.Shapes.SelectAll
Selection.Delete
End Sub

--
HTH,
Bernie
MS Excel MVP


"aftamath" wrote in message
...
Whats the VBA code to delete all the shapes on a worksheet?

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