Autofilter dates not workjing

[sharky12345]

I'm trying to filter a range so that I only get dates which are after today minus 60 days.

I've recorded a macro which produced this:

ActiveSheet.ListObjects("Table3").Range.AutoFilter Field:=1, Criteria1:=">25/01/2023", Operator:=xlAnd

But when I try to achieve it using VBA it filters everything out and I don't understand why. This is what I have;

LastDate = Date - 60
ActiveSheet.ListObjects("Table3").Range.AutoFilter Field:=1, Criteria1:=">=" & LastDate, Operator:=xlAnd

Can anyone tell me why it won't work?

 

[MARK858]

At a guess as you haven't posted how LastDate is defined try CLng(LastDate)

 

[sharky12345]

Ahh yes!

Perfect - thanks MARK858

 

[MARK858]

You're welcome