And if you want that row scrolled up, add the line

ActiveWindow.ScrollRow = ActiveCell.Row

before End Sub


Gord Dibben MS Excel MVP

On Tue, 11 May 2010 16:21:39 +0100, Roger Govier
wrote:

Hi

One way

Sub Auto_Open()
Sheets("Sheet1").Activate
Rows(Date - DateSerial(2010, 1, 1) + 2).Activate
End Sub