J_J,

your code works fine for me, with one small exception.

Because you step from lastrow - 1 it doesn't delete the last row ifcolumn F
has a colour. You should step down from lastrow.

What happens for you?

HTH

RP

"J_J" wrote in message
...
Hi,
I am trying to adopt a code to delete all rows in a workbooks' all sheets
if
a number of criteria is valid.
This is as far as I've gone. But the code only works for Sheet1.
Can you correct my mistake?
------------------------------

Option Explicit
Sub delete_ygrb_rows()
Dim lastrow As Long
Dim row_index As Long

Application.ScreenUpdating = False

lastrow = ActiveSheet.Cells(Rows.Count, "F").End(xlUp).Row
For row_index = lastrow - 1 To 1 Step -1
Select Case LCase(Cells(row_index, "F").Value)
Case Is = "yellow", "green", "red", "blue"
Rows(row_index).Delete
End Select
Next row_index

Application.ScreenUpdating = True
End Sub

Sub AllSheets()
Dim mySht As Worksheet
For Each mySht In ActiveWorkbook.Worksheets
mySht.Activate
Call delete_ygrb_rows
Next mySht
End Sub

Private Sub CommandButton1_Click()
AllSheets
End Sub