Multiple criteria in autofilter

[Tucker92]

Hi i am trying to get this piece of code to work and i cant figure out why it isnt working. All the variables are assigned and it works if i only use the one criteria. Can anyone help me to get this to work
When i use it it comes back with a 1004 error

WTL.Range("WTL").AutoFilter Field:=3, Criteria1:="=*" & met & "*", Criteria2:="=*" & metf & "*", Criteria3:="=*" & rsv & "*", VisibleDropDown:=True

I could use it to filter out each one individually but i am trying to cut my code down and thought i would be able to combine these

Thank you in advance for any help

 

[Norie]

Autofilter only has 2 criteria arguments, Criteria1 and Criteria2.

What are you trying to filter for?

 

[Tucker92]

Five different criteria but the names change each week so i need to search for it using the portion that doesnt change

Here is my entire code

Dim ws As WorksheetDim Vac As Worksheet


    Set Vac = Application.Workbooks("Css Plan").Sheets("Vac AC WTL")
    Set WTL = Application.Workbooks("Css Plan").Sheets("WTL")


Dim met As String, metf As String, rsv As String, pl As String, wet As String


    met = "12""MET"
    metf = "14""MET"
    rsv = "RSV"
    pl = "14""PL"
    wet = "12""WET"
    
Dim data_end_row_number As Long
Dim nxt As Long
     
data_end_row_number = WTL.Range("A1").End(xlDown).Row
nxt = Vac.Range("A1").End(xlDown).Row + 1


   WTL.Range("WTL").AutoFilter Field:=3, Criteria1:="=*" & met & "*", Criteria2:="=*" & metf & "*", Criteria3:="=*" & rsv & "*", VisibleDropDown:=True
            
    WTL.Activate
    WTL.Range(("A2"), Cells(data_end_row_number, "D")).SpecialCells(xlCellTypeVisible).Copy
    Vac.Activate
    Range("A2").Select
    ActiveSheet.Paste
    WTL.Activate

Is there any way i can include all 5