Filter with criteria formula today

[filnirv]

Hi my friends

How can i filter with criteria=funtion today() , remember that is date value

i tried this

Range("A2").AutoFilter Field:=6, Criteria1:= Date

and

Range("A2").AutoFilter Field:=6, Criteria1:="=Date"

but donīt work

but if i use

Range("A2").AutoFilter Field:=6, Criteria1:="=28/07/12"

it work

Any idea?

Many thanks
Filnirv