Delete rows if they don't contain multiple specific text

[Mux99]

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

 

[Logit]

.
You can first filter the rows that do not have the terms. Look at "autofilter rows array".

https://heelpbook.altervista.org/2012/excel-vba-how-to-pass-an-array-as-criteria-in-autofilter/

http://WS.UsedRange.AutoFilter Field:=2, Criteria1:=Array("Apples","Peaches","Grapes), Operator:=xlFilterValues

Then you can delete the visible rows that are left. https://stackoverflow.com/questions/17194394/vba-how-to-delete-filtered-rows-in-excel