Hi Archana,

Following should do the job ...
to be added in the worksheet module ...

Private Sub Worksheet_Activate()
Cells.Find(What:="today()", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False).Activate
End Sub

HTH
Cheers
Carim