Do - Loop (Sheet Delete Issue)

Greetings,
1- Open enclosed file.
2- Run Macro1.

Sub Macro1()
Dim ws As Worksheet
Set ws = Worksheets(1)
Do Until ws.Name = "Main"
    ws.Select
    Application.DisplayAlerts = False
    If Range("A1").Value Like "apple" Then ws.Delete
    Application.DisplayAlerts = True
    Set ws = ws.Next
Loop
End Sub

After running Macro1 you will see that there is an error on red line...

Any support will be appreciated.

See if this works for you:

Sub Macro1()
Dim ws As Worksheet
For Each ws in Worksheets
If ws.Name = "Main" Then
    If Range("A1").Value Like "apple" Then
 ws.Delete:Exit Sub:End If:Next
    End Sub

When you delete the worksheet, the object variable is disconnected from the object, so there is no ws.Next.

As generally for deleting things, loop backwards:

Sub Macro1()
    Dim i           As Long
    Dim wks         As Worksheet

    Application.DisplayAlerts = False
    For i = Worksheets("Main").Index - 1 To 1 Step -1
        Set wks = Worksheets(i)
        If LCase(wks.Range("A1").Value) = "apple" Then wks.Delete
    Next i

    Application.DisplayAlerts = True
End Sub

Very thanks...Solved...

Hi shg,
There will be any diffrence if I use

 If wks.Range("A1").Value Like "apple" Then wks.Delete

instead of

 If LCase(wks.Range("A1").Value) = "apple" Then wks.Delete

???

Ok..
What is InStr for ?

 If Not InStr(1, ws.Range("A1").Value, "apple") = 0 Then ws.Delete