If shapes exist then delete

Hi all,

I need to amend my code to check if shapes exist on my worksheets before the delete.

Because the code below is deleting the selected cell if there are no shapes on the worksheet.

Sub DeleteShapes()
Dim sh As Worksheet

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