I'm trying to use a macro to filter partial info in the cell. I can't figure
out what to replace the "=" with to allow "Contains" to be searched for.

Sub filter3()
c1 = InputBox("Enter Partial #")
Range("A2:A9912").AutoFilter Field:=1, _
Criteria1:="=" & c1, Operator:=xlAnd '--------Problem ------
End Sub

Any help would be appreciated.
Tony