try

Sub BugTest()
Selection.AutoFilter Field:=4, _
Criteria1:="<=" clng(Dateserial(2007,9,7))
End Sub

Make sure you have all the data you want filter selected when you run it.

--
Regards,
Tom Ogilvy


" wrote:

Hi,
I generated a macro via the macro recorder which turns out not to
work. Whenever I run it I don't get any results even though I should.
When I open the autofilter settings and just press ok without changing
anything however it works. Does anyone have any clue on that? (code
see below)

Sub BugTest()
Selection.AutoFilter Field:=4, Criteria1:="<=07.09.2007",
Operator:=xlAnd
End Sub


Cheers,
Lars