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

did you try activecell.value ?

--


Gary


"al007" wrote in message
ps.com...
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

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

Thxs

You could try
activecell.value2
as your criteria.



al007 wrote:

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

Thxs

--

Dave Peterson