erreur dans mon code VBA

Bonjour a tous,

Je suis novice en VBA et j'ai une erreur que je n'arrive pas à m'expliquer, pourriez-vous m'aider.
A priori c'est la partie en rouge dans le code ci dessous qui pose problème

Voici le code :

Private Sub Workbook_Open()

Dim Nom
Dim Nom1
Dim lign

For Each sh In Sheets 'pour toute les feuilles du classeur
For lign = 1 To 154 Step 22 'on boucle sur les lignes 1 à 154 par pas de 22
If "E" & lign <> "" Then 'si les cellules E1 ; E23 ; E45 ... sont non vide alors
Nom1 = "FH " & sh.Range("E" & lign) & " " & sh.Range("B" & lign) & " maj" 'on determine le nom de la Fiche Horaire du salarié
Nom = ActiveWorkbook.Path & "\" & sh.Name & "\" & Nom1 & ".xlsx" 'on ouvre le fichier FH nom prénom du salarié
Application.AskToUpdateLinks = False 'on demande la mise à jour
Application.ScreenUpdating = False 'on n'affiche pas le fichier
Workbooks.Open Nom, , , , "#######" 'on dévérouille le fichier pour la mise à jour des liens
ActiveWorkbook.Close savechanges = False 'on ferme le fichier FH nom prénom du salarié sans enregistrer les changements
Application.ScreenUpdating = True 'on affiche le resultat de la mise à jour des liens
End If
Next 'on passe à la prochaine cellule "E"
Next sh 'on change d'onglet
End Sub