I have a Inputbox i would like to use to set the AutoFilter criteria1. Then
display the results of that filter on the active worksheet. This is what i
have so far...


Sub Sort()
Dim Message, Title, MyValue
Message = "Please Enter A Date"
Title = "Title"
MyValue = InputBox(Message, Title)
Range("Headers").Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:=MyValue
End Sub

The code almost works, it select the headers, creates the auto filter but
dosent display the results of the filter. the ultimate goal here is to only
see the date entered on the active sheet to be printed. Any help would be
great.