Is it possible to create a macro that will:

1) Activate the Autofilter
2) Prompt the user for autofilter criteria by selecting
from a list of unique records in column A (only criteria1
is needed)
3) Engage the Autofilter and show the results based on
this selection

I recorded turning the Autofilter on and selecting an
example of the criteria; but I'm not sure how to create
the prompt.

Sub FILTERBYA()
'
' FILTERBYA Macro
' Macro recorded 11/06/2003 by Brandon
'

'


Columns("A:G").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Boats"
Range("A5").Select
End Sub
_________________________________________
Thank you for your time,

Brandon