Shapes

[aftamath]

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

 

[Bernie Deitrick]

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

 

[i-Zapp]

Sub deleteshapes()
For Each shp In ActiveSheet.Shapes
shp.Delete
Next shp
End Su