AutoFilter with Dates

[jeancake]

I'm trying to use an autofilter to extract records that are more than a year old:

Range("A1").AutoFilter Field:=1, Criteria1:="<11/24/2007"

but when I run the macro I don't get any results. I would like to write a code that will do this everyweek when I run the macro so that I don't have to manually change the date.

Can anyone help?

 

[onlyadrafter]

Hello,

in a cell e.g. B1 enter this formula

=EDATE(TODAY(),-12)

then reference this cell in the code

YEAR_OLD = Format(Range("B1").Value, 0)
Range("A1").AutoFilter Field:=1, Criteria1:="<" & YEAR_OLD