Filter Everything, Except for a Single Criteria

[Guzzlr]

ActiveSheet.Range("$A$8:$AH$1894").AutoFilter Field:=1, Criteria1:=Array( _
        "NOT STARTED", "ON-HOLD", "STARTED"), Operator:=xlFilterValues
    ActiveSheet.Range("$A$8:$AH$1894").AutoFilter Field:=2, Criteria1:="NCR"

Hello All,
The Code above is working to filter only "NCR" (after Field 1)
However, what if I want to Filter Everything Except "NCR" with out creating a Hugh Array?

Thanks for the help

 

[Fluff]

Try

Criteria1:="<>NCR"

 

[Guzzlr]

Try

Criteria1:="[COLOR=#ff0000]<>[/COLOR]NCR"

umm...something happened with the new forum site

 

[Fluff]

Corrected.