Hi
try the following. Change the line
If Not (Range("B" & i).Value Like "CR5673") Then
to
If Not (Range("B" & i).Value Like "CR5673") _
and Not (Range("B" & i).Value Like "DA2618") _
and Not (Range("B" & i).Value Like "DA1131") _
Then

--
Regards
Frank Kabel
Frankfurt, Germany

Ed wrote:
I run this macro to delete unwanted rows of data that I import into
excel. If a value in
column B does not match "CR5673" the row is deleted. I now have more
values that
I want to include along with "CR5673". For example "DA2618" &
"DA1131" do not
need to be deleted.

Do I write three different if statements?

Also these values are dynamic. Can it compare the values in a defined
named range?

T.I.A.
Ed




Sub Step02()
'Delete rows with unwanted data

Dim LastRow As Long
Dim i As Long
LastRow = Range("A6536").End(xlUp).Row

For i = LastRow To 1 Step -1
If Not (Range("B" & i).Value Like "CR5673") Then
Range("B" & i).EntireRow.Delete
End If
Next 'i


End Sub