Private Sub Workbook_Open

Bonjour à tous;
J'ai récuper ce code pour aller à la date du jour sur ma feuille 2008 à
l'ouverture de mon fichier, qui contient plusieurs feuille, pourquoi ? il
sélectionne la date 05/11/2008 au lieu de 05/01/2008

Private Sub Workbook_Open()
Sheets("2008").Select
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub
Merci