Do - Loop (Sheet Delete Issue)

Sub Macro1()
Dim ws As Worksheet

For Each ws In Worksheets
    If ws.Name = "Main" Then Exit Sub
    Application.DisplayAlerts = False
        If Not InStr(1, ws.Range("A1").Value, "apple") = 0 Then ws.Delete
    Application.DisplayAlerts = True
Next

End Sub