spelling?
spaces?

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"aileen" wrote in message
...
I'm trying to delete rows based on whether the data in column G is "adj"
or
"redi avg". I am using the following code, but it is only deleting the
rows
with "adj" in the cell:

Dim lr As Long, i As Long
lr = ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Row
For i = lr To 1 Step -1
With ActiveSheet
If .Cells(i, 7) = "adj" Or .Cells(i, 7) = "redi avg" Then
.Cells(i, 1).EntireRow.Delete
End If
End With
Next

Please let me know how to get the rows with "redi avg" to delete also.
Thanks!