delete several specified items

[howard]

I have a macro to delete the following items in Col Y


I need to amend the section of the code to allow me to specify ore than one item in Col Y to delete the row

 If Range("Y" & i).Value = "BR1", "BR2" Then

Kindly amend my code

See full code below

 Sub Del_Unwanted()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
If Range("Y" & i).Value = "BR1", "BR2" Then
Range("Y" & i).EntireRow.Delete
Next i
End Sub

 

[Joe4]

Try:

 If (Range("Y" & i) = "BR1") Or (Range("Y" & i) = "BR2") Then

 

[howard]

Thanks Joe

 

[Joe4]

You are welcome.