Vba apply custom filter for more than 2 keywords

[Baziwan]

Hi all,

I'm trying to write a macro that will filter a database to show rows that only contain certain keywords.

I used the macro recorder to recorded a custom filter but have been unable to adapt it for more keywords. Below is the recorded code.
Any ideas on how I can get it to filter more (it could be up to 50 keywords)

ActiveSheet.ListObjects("TableSal").Range.AutoFilter Field:=7, Criteria1:= _
        "=*Apple*", Operator:=xlOr, Criteria2:="=*Pear*"

Thanks in advance

 

[Fluff]

Autofilter has a limit of two criteria, unless you are doing an exact match.
Have a look at Advanced filter instead https://www.contextures.com/xladvfilter01.html