Help with filter by date

[Programs1234]

I am trying to filter for dates before today. However, my code below is just simply not working. It runs but it does not seem to be filtering. Anybody know whats wrong with the code below? Thanks!

Sheets(1).Range("A1:AC1").AutoFilter Field:=11, Criteria1:="<" & CLng(Date)

[YasserKhalil]

May be those lines help you (Not Testes)

Dim myDate As Date
myDate = DateSerial(Year(myDate), Month(myDate), Day(myDate))
Sheets(1).Range("A1:AC1").AutoFilter Field:=11, Criteria1:="<" & myDate

[p45cal]

No balls… quite so.

[Programs1234]

I tried using your code above. It kind of spits out the same results. I think it sort of skips over that line without doing anything.

[Programs1234]

I double checked and as it turns out your code actually works just fine. I just made a small organization error. Thanks!

[YasserKhalil]

You're welcome. Glad I can offer some help