If shapes exist then delete

Try

Sub DeleteShapes()
Dim sh As Worksheet

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

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