Think I've got it.

Is all that code in a sheet module, for Sheet 1?

If so, move the Sub delete_ygrb_rows() and the sub AllSheets() into a
standard code module and it should work.

My previous comment on lastrow still holds.

--

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

Bob, I think you did it again...
I'll try and get back to this thread to thank you.
Sincerely
J_J

"Bob Phillips" wrote in message
...
Think I've got it.

Is all that code in a sheet module, for Sheet 1?

If so, move the Sub delete_ygrb_rows() and the sub AllSheets() into a
standard code module and it should work.

My previous comment on lastrow still holds.

--

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

Yesss.......:) just tested it!
Now it does the job perferctly.
Thank you very much Bob.
Cheers
J_J

"J_J" wrote in message
...
Bob, I think you did it again...
I'll try and get back to this thread to thank you.
Sincerely
J_J

"Bob Phillips" wrote in message
...
Think I've got it.

Is all that code in a sheet module, for Sheet 1?

If so, move the Sub delete_ygrb_rows() and the sub AllSheets() into a
standard code module and it should work.

My previous comment on lastrow still holds.

--

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

Thanks for telling us J_J

Bob

"J_J" wrote in message
...
Yesss.......:) just tested it!
Now it does the job perferctly.
Thank you very much Bob.
Cheers
J_J

"J_J" wrote in message
...
Bob, I think you did it again...
I'll try and get back to this thread to thank you.
Sincerely
J_J

"Bob Phillips" wrote in message
...
Think I've got it.

Is all that code in a sheet module, for Sheet 1?

If so, move the Sub delete_ygrb_rows() and the sub AllSheets() into a
standard code module and it should work.

My previous comment on lastrow still holds.

--

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