Autofilter - =string in selected cell

[al007]

Sub Autofilter()
Selection.AutoFilter Field:=5, Criteria1:= _
"=NPF", Operator:=xlAnd
End Sub

How can I amend above code to replace NPF with the contents of my
active cell
(E.g either by Application.InputBox type := ???
or replace NPF by activecell.content ???)

Thxs

 

[Gary Keramidas]

did you try activecell.value ?

 

[al007]

Yes - I managed to make it work with active value but not if selected
filter contains date - Can anybody help pls.

Thxs

 

[Dave Peterson]

You could try
activecell.value2
as your criteria.