Delete Rows
Don't know where you have entered the code.
Did you plug it into the code provided by Gary's Student?
Post the code you're using.
Gord
On 29 Dec 2006 06:24:45 -0800, "Bernie" wrote:
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
|