You use an inputbox statement.

Sub aa()
Dim Answer As String
answer = InputBox("Enter Criteria", "Filter input")
Selection.AutoFilter Field:=1, Criteria:=answer
End Sub

Hopes this helps.

---
Per

"BG Mark" skrev i meddelelsen
...
How can I get visual basic to prompt the user for a data entry that will
subsequently be used in an autofilter.