Message d'erreur sur macro

bonjour,

dans thisworkbook je place une macro pour qu'elle se lance à l'ouverture du fichier.
Le fichier toto s'ouvre bien
La macro s'arrête dès le début alors que je lui demande simplement de sélection une feuille du fichier :

Private Sub Workbook_Open()

ChDir "H:\"
Workbooks.Open Filename:="H:\toto.xlsm"
Sheets("enregistrement").Select <= c'est sur cette ligne que la macro stoppe

J'ai vérifié que le nom de la feuille soit correcte
j'ai refait le début de la macro à l'aide de l'assistant excel
Je ne parviens pas à identifier le pb.

Merci pour vos remarques et solutions

cdlt
Philippe