If shapes exist then delete

Hi,

Use the Shapes collection object and count that then test for a count >0

e.g.

For Each sh In Worksheets(Array("Deployment", "Sickness (Confidential)"))
   If sh.Shapes.Count > 0 Then
       sh.Shapes.SelectAll
       Selection.Delete
   End If
Next sh