Hello Drew,

Try the following. Note that a space and underscore at the end of a line is
a line break in an otherwise single line of code.

With ActiveSheet.AutoFilter.Range

.AutoFilter Field:=1, Criteria1:="=3", _
Operator:=xlOr, Criteria2:="=4"

End With


--
Regards,

OssieMac