Thanks.
As I guessed please.

Regards

"Don Guillett" wrote in message
...
Not really needed. In this example, I was having the macro stop after
considering row 5. Change to 1 if you want it to goto the top.

--
Don Guillett
SalesAid Software

"PY&Associates" wrote in message
...
I would be pleased to know why a "4" is needed in
For i = x To 4 Step -1

Merry X'mas

"Don Guillett" wrote in message
...
one way

Sub deletenot()
x = Cells(Rows.Count, 1).End(xlUp).Row
For i = x To 4 Step -1
If Cells(i, 1) < 428 _
And Cells(i, 1) < 491 _
And Cells(i, 1) < 493 _
And Cells(i, 1) < 495 _
And Cells(i, 1) < 496 _
Then Cells(i, 1).EntireRow.Delete
Next
End Sub
--
Don Guillett
SalesAid Software

"KJ Dahl" wrote in message
...
Hi everyone,
I seem to be stuck again with a problem that probably is very easy.
The data in my sheet is spread over 7 Columns and about 200-300
Rows.
I want to loop through column 7 and delete the entire row if the
value
is
different to 6 possible values.
So if the value in column 7 is different from for example 428, 491,
492,
493, 495 and 496 then the entire row should be deleted.
I have tried putting these values in an array and do a comparison.
That
didn't work out.
Neither did a comparison with 5 OR's.

Hope this is understandable, please let me know if you want to see
the
code
I've used.

Thanks for your help

KJ