Right click sheet tabview codeinsert this

Private Sub Worksheet_Activate()
mydate = Date
columns(1).Find(What:=mydate, LookIn:=xlFormulas, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Nemo" wrote in message
...
I have a work book that has 3 work sheets. One sheet has year 2009 listed
as
dates in colum A, i was a able to conditional format this sheet to high
lite
todays date. question is when i open this sheet , i want to automaticaly
goto the row that is todays date? Any sugestion would be apreciated.