Less than or equal to question

[Keith412]

I am having an issue with the below. What it is supposed to do is filter based on the date that is entered as "strName". So the macro runs, it pops up, i put in todays date. For instance, i would type in 11/16/2009 and it would filter by 11/16/2009 or before, hence eliminating anything from 11/17 and forward.

strName = InputBox("Enter todays date, ex] 11/18/2009", "Filter by Name")

ActiveSheet.Range("$A$1:$L$555").AutoFilter Field:=7, Criteria1:= _
" <=" = strName, Operator:=xlAnd

suggestions?

Thank you,
Keith412

 

[Nogslaw]

Slight change:

strName = InputBox("Enter todays date, ex] 11/18/2009", "Filter by Name")

ActiveSheet.Range("$A$1:$L$555").AutoFilter Field:=7, Criteria1:= _
"<=" & strName

 

[Keith412]

perfect! Thanks as always