Buonasera,
il foglio di lavoro deve avere estensione "xlsm"
Private Sub Workbook_Open()
Sheets("nomefoglio").Cells(numriga, DateDiff("y", DateSerial(Year(Now()), 1, 1), Now()) + 1).Select
End Sub
con nomefoglio = al nome del foglio in cui hai le date;
numriga = al numero della riga in cui hai le date.. se ad esempio hai le date nella riga 1 del foglio sheet1 a partire dalla colonna A dovresti scrivere:
Private Sub Workbook_Open()
Sheets("sheet1").Cells(1, DateDiff("y", DateSerial(Year(Now()), 1, 1), Now()) + 1).Select
End Sub