excel si può posizionare autamaticamente sulla data odierna

Salve a tutti ,ho un calendario riportato su una colonna dal primo all'ultimo giorno dell'anno, esiste una funzione che quando avvio il programma mi posizioni già sulla riga della data?
grazie emanuele

ipotizzando la prima cella del calendario sia "A1"

Private Sub Workbook_Open()
Dim cerca As Integer
For cerca = 1 To 365
If Cells(cerca, 1).Value = Date Then
Cells(cerca, 1).Select
End If
Next cerca
End Sub

Ciao

Automaticamente è un po' complicato, però c'è un rapido procedimento per arrivarci
post114462.html?hilit=#p114462