Delete rows if they don't contain multiple specific text

Mux99

New Member
I would like to delete all rows that don't contain multiple specific text in column D. The below code works great for two options but I have a list of twelve words that I would like to add.

Sub Del_Rows()
With Range("A1", Range("D" & Rows.Count).End(xlUp))
.AutoFilter Field:=4, Criteria1:="*apple*", Operator:=xlOr, Criteria2:="orange"
.EntireRow.Delete
.AutoFilter
End With
End Sub
Thanks in advance
 
Last edited:

Some videos you may like

This Week's Hot Topics

Top