Use Inputbox to filter for current month

I want to set up an input box that asks you what month you want to filter for. Then it will filter for the chosen month. The filter will usually read "1/31/2014" or the latest date if I filter with the recorder. How can I set this up?

Sloppy code that doesn't work:

Variable = Inputbox("What Month do you want to filter?")


ActiveSheet.Range("$A:$TT").AutoFilter Field:=86, Operator:=
      '  xlFilterValues , Criteria2:=Array(1, Variable)

bump no reply