I am trying to use a multi criteria filter with...

ActiveSheet.Range("$A$1:$AI$86").AutoFilter Field:=9, Criteria1:="<CAT", _
Operator:=xlAnd, Criteria2:="<DOG", Operator:=xlAnd, Criteria3:= _
"<BIRD", Operator:=xlAnd

But I am getting Application defined error. I supose its because there is
more than 2 criteria. Do i need to add a second line like this one with the
3rd cruiteria or is there a way to combine into one line?

Thanks