I have a workbook with several worksheets. One of the worksheets has a list of (consecutive) dates. What I'd like to do is each time the workbook is opened the worksheet with dates on (let's call it "diary") is opened as default. Then the cell with today's (system) date is automatically selected. It sounds simple and I've tried using a macro to do it

Sub MoveDate_Activate()
Sheets("Diary").Select
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

End Sub

It doesn't seem to work though. Is there a better way?

Thanks!