Shapes

[aftamath]

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

[i-Zapp]

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

[Bernie Deitrick]

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

--
HTH,
Bernie
MS Excel MVP


"aftamath" <[email protected]> wrote in message
news:[email protected]...
> Whats the VBA code to delete all the shapes on a worksheet?