Private Sub Workbook_Open()
  Dim R As Range
  With Worksheets(1).Range("A:A")
    Set R = .Find(Date, LookIn:=xlValues)
    If R Is Nothing Then
      Exit Sub
    Else
      .Cells(R.Row).Select
    End If
  End With
End Sub