Hi,
Put this code in the workbook section of the VBE.

Private Sub Workbook_Open()
Z = 1
Y = 1
Do Until Cells(Z, Y) = Date
Z = Z + 1
Loop
Cells(Z, Y).Select
End Sub

If your dates are not in column A, change the value of Y in the 2nd line to
suit your data. (Column A=1, Column B=2, etc)
Regards - Dave.