Thank you. I get the error message of Run Time Error 438. What do I
do?

Bern

Gord Dibben wrote:
Or if many sheets in workbook may be easier to put the 5 you want into an array.

If many sheets you could put the 5 sheets in an array

For Each W In Worksheets(Array("sheet1", "Sheet3", _
"Sheet5", "sheet7", "sheet9"))


Gord Dibben MS Excel MVP

On Thu, 28 Dec 2006 15:00:00 -0800, Gary''s Student
wrote:

It is easier to list the sheets to avoid. Replace

If w.Name = "Sheet1" Then

with

If w.Name="Sheet1" or w.Name="avoid3" or w.Name="avoid9" Then
--
Gary''s Student


"Bernie" wrote:

I don't want it to look at all the sheets, just 5. How do I name them?

Bernie

Gary''s Student wrote:
Now I understand:

Sub remover2()
v = Sheets("Sheet1").Range("A1").Value
For Each w In Worksheets
If w.Name = "Sheet1" Then
Else
For Each r In w.UsedRange
If r.Value = v Then
r.EntireRow.Delete
Exit For
End If
Next
End If
Next
End Sub