Ron, how about something like this

Sub test()
Dim strA As String
Dim strB As String
strA = Application.InputBox("Start Date")
strB = Application.InputBox("End Date")

Selection.AutoFilter Field:=3, Criteria1:="" & strA, _
Operator:=xlAnd, Criteria2:="<=" & strB
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2000 & 97
** remove news from my email address to reply by email **
"Ron McCormick" wrote in message
...
I would like to write a procedure that would allow a user
to enter dates ie one greater than and the other less than
in a programmed autofilter procedure.

Essentially I would want the user to be able to insert
their own chosen dates in place of the dates that appear
in the undernoted code without them seeing the code.

Selection.AutoFilter Field:=3, Criteria1:="31/10/2002",
Operator:=xlAnd, Criteria2:="<=31/10/2003"

TIA
Ron