Richard, try this, put in thisworkbook code

Private Sub Workbook_Open()

'will go to today's date, in column B, on open

On Error Resume Next

ThisDay = DateValue(Date)

Range("B2").Select

i = 0

Do While ActiveCell.Offset(i, 0).Value < ThisDay

i = i + 1

Loop

ActiveCell.Offset(i, 0).Select

End Sub
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003


"Richard V" <Richard wrote in message
...
Afternoon All,

In our office we have a very simple diary on Excel. We have the day's date
going down column B, and staff names across the top. We simply type in the
cell under our name next to todays date to show what are our plans for
that
day.

This Diary goes back to early this year and every time we open the diary
(shared workbook) it starts with cell b4 highlighted (January 4 2005).
This
means we have to scroll down to find today's date.

Is it possible to have Excel automatically find today's date in column B
and
scroll down to it when we open excel, or can we record a macro that is
triggered by a click?

Cheers,

Richard