When using for each loop for delete worksheets ( showing error msg for completing the task

[ManojRana]

Sub ForEachLoop1()


For Each cl In Range("A1").CurrentRegion
cl.Select
If cl = 10 Then
cl.Interior.Color = vbRed
End If
Next cl
End Sub
Sub ForeachExample2()
Application.DisplayAlerts = True
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "Delhi" Then

Else
ws.Delete

End If


Next ws

 

[My Aswer Is This]

Is this what you want:

Sub Test()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = 1 To Lastrow
        If Cells(i, 1).Value = "10" Then Cells(i, 1).Interior.Color = vbRed
    Next
Application.ScreenUpdating = True
End Sub

 

[My Aswer Is This]

Is this what you want:

Sub ForeachExample_New()
Application.DisplayAlerts = False
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name = "Delhi" Then ws.Delete
    Next
Application.DisplayAlerts = True
End Sub