Interactive filter macro

I'm using these macros to sort a table, and filter by a critieria. I have one of these macros for each value in column A. I would like to have only one macro, and when I run the macro, it ask for the value I want to filter by.

Sub White()
Sheets("Sheet1").Select
aa_sort
ActiveSheet.Range("$A$3:$F$1000").AutoFilter Field:=1, Criteria1:= _
"=*White*", Operator:=xlAnd
Range("A3").Select
End Sub
Sub Black()
Sheets("Sheet1").Select
aa_sort
ActiveSheet.Range("$A$3:$F$1000").AutoFilter Field:=1, Criteria1:= _
"=*Black*", Operator:=xlAnd
Range("A3").Select
End Sub