Tim,
The code I use for the filter is given below. Here, in the criteria, it
shows 17-Jan-2006. I want something which can make the criteria as the
present day. Please help
Your quick help is appreciated.

Sub pravi()
Range("A3").Select
Selection.AutoFilter
Range("I3").Select
Selection.AutoFilter Field:=9, Criteria1:="17-Jan-2006"
Range("A1").Select
End Sub

Thanks.


--
praveen_khm
------------------------------------------------------------------------
praveen_khm's Profile: http://www.excelforum.com/member.php...o&userid=30364
View this thread: http://www.excelforum.com/showthread...hreadid=502249