Hi Annette,

Try:

Sub Tester()
Dim rw As Long
Dim i As Long
Dim res As Variant
Dim list As Variant

rw = Cells(Rows.Count, "F").End(xlUp).Row

list = Array("DRH1", "DRH2", "DRH3", "DRI1", _
"DRI2", "DRI3", "DRIA", "DRIB")

For i = rw To 1 Step -1
res = Application.Match(Cells(rw, "F").Value, list, 0)
If Not IsError(res) Then
Cells(rw, "F").EntireRow.Delete
End If
Next
End Sub



---
Regards,
Norman



"Annette" wrote in message
...
grrrr .. still not working with all this helpful information ... here's
the
code with the additives:

Dim i As Long
Dim list As Variant
Dim res As Variant
Dim rw As Range

rw = Cells(Rows.Count, "F").End(xlUp).Row
Set rw = Cells(Rows.Count, "F").End(xlUp)
list = Array("DRH1", "DRH2", "DRH3", "DRI1", _
"DRI2", "DRI3", "DRIA", "DRIB")
For i = rw To 1 Step -1
res = Application.Match(Cells(rw, "F").Value, list, 0)
If Not IsError(res) Then
Cells(rw, "F").EntireRow.Delete
End If
Next

"Bob Phillips" wrote in message
...
And

Dim i As Long
Dim list As Variant
Dim res As Variant

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Lonnie M." wrote in message
oups.com...
Hi,
Dim rw As Range

HTH--Lonnie M.