Autofilter in VBA using a drop down list for criteria

Hi,
I have this code at the moment and I want the search criteria to be either a cell reference or from a drop down list. Not sure how to write the end bit. At the moment it says Mike so it will only show his name, but I want the user to be able to select any name from a list. How do I do that?

Thanks

 Sub Macro3()
'
' Macro3 Macro
'

'
    ActiveSheet.Range("$A$4:$K$6000").AutoFilter Field:=3, Criteria1:="mike"
End Sub

Thanks, slowly getting the hang of this.