Sub Macro1()
Dim lRow As Long
lRow = Date - DateSerial(Year(Date), 1, 1) + 1
ActiveWindow.ScrollRow = lRow + 1
Cells(lRow, "A").Activate
End Sub

HTH
--
AP

"Victor Delta" a écrit dans le message de news:
...
Hi

I have an Excel spreadsheet which includes, in Col A, a list of all 365
days of the year.

When opening the spreadsheet, using an auto_open macro, I would like the
opening view to include today's date (perhaps a few rows down from the
top).

Can anyone please recommend which functions I need to use in the macro to
make the spreadsheet open in this way.

Many thanks,

V