Macro For Deleting Rows When Certain Number/Text Appears In Certain Cell

[jlkirk]

I posted this question on Woody's, but have not heard anything, and I am under a bit of a time constraint. My worksheet contains an inventory of over 1000 auto parts. Column A is the part number, a unique number for each row (i. e., no cell in column A contains the same number); column B contains the part description, and these cells may be duplicated; column C contains the price, and, like column B, the cells in column C may contain duplicates; and finally, column D contains the quantity of each part in inventory, which, again, like columns B and C, may contain duplicates. What I would like is a macro that would delete any row with a certain part number in column A. There may be 40-50 different part numbers that I would like to include in this deleting process. I thought about filtering, but that is too time-cousuming. Any ideas?
Thanks in advance.

 

[VoG]

Try this: change/expand the values in red to suit

Sub DelRows()
Dim x, LR As Long, i As Long
x = Array(1, 2, 7, "ABC")
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If isnumeric(Application.Match(Range("A" & i).Value, x, 0)) Then Rows(i).Delete
Next i
End Sub

 

[jlkirk]

EXCELLENT!!! Thanks.