AutoFilter Code not working

[kc_native]

I am trying to delete rows in a data sheet, that don't contain the names that I am specifying in the code below, but I am getting "Compile Error: Named argument not found" when I try to run this part of the code. It is highlighting Criteria3:= when it errors out. Is there a limit to the number of criteria you can use in AutoFilter, or am I just not structuring the code correctly? Thanks for any help you can give me!

With Range("F11:F5000").AutoFilter(Field:=6, Criteria1:="<>Donahue*", Operator:=xlOr, Criteria2:="<>Edgar*", Operator:=xlOr, _
    Criteria3:="<>Honig*", Operator:=xlOr, Criteria4:="<>McHenry*", Operator:=xlOr, Criteria5:="<>Palmer, Robert", _
    Operator:=xlOr, Criteria6:="<>Stockdale*", Operator:=xlOr, Criteria7:="<>Thatcher*", Operator:=xlOr, _
    Criteria8:="<>Wolfe").SpecialCells(xlCellTypeVisible).EntireRow.Delete(xlUp)
End With

 

[Andrew Poulsom]

AutoFilter can have only 2 criteria, manually or in VBA. Use a formula in a spare column and filter on that. Note that you will need AND not OR for not equals.

 

[wigi]

Hello

This sounds like it calls for an Advanced filter approach ...

In any case, Criteria1 and Criteria2 are the only ones you can use for the Autofilter approach. You can filter for the contents of an array, such as for example:

Sub Autofilter_12a()
     Range("A1").CurrentRegion.AutoFilter _
         Field:=1, _         
         Criteria1:=Array("France", "Belgium", "Germany"), _
         Operator:=xlFilterValues
End Sub

or:

Sub Autofilter_12b()
     Range("A1").CurrentRegion.AutoFilter _
         Field:=1, _
         Criteria1:=Split("France#Belgium#Germany", "#"), _
         Operator:=xlFilterValues
End Sub

 

[kc_native]

AutoFilter can have only 2 criteria, manually or in VBA. Use a formula in a spare column and filter on that. Note that you will need AND not OR for not equals.

Gotcha. Thanks for educating me on this, Andrew!