Changement de nom à l'ouverture du fichier

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" Then

    Sheet2.Name = Range("b2")
End If
End Sub

Je souhaite changer le nom d'un onglet en d'une cellule, en regardant sur internet j'ai assemblé des code qui permet de le faire mais le problème est que lorsque j'ouvre le fichier il ne le met pas à jour savez-vous pourquoi ?

Voici le fichier avec mon code

Merci d'avance,

Ambou

J’ai changé le code mais ça ne marche toujours pas même en revenant au plus basique, la macro ne veut pas s'exécuter au démarrage :

Sub Auto_Open()
Sheets(2).Name = Sheets(2).Range("B2").Value
End Sub

personne n'a une idée ?

Option Explicit

Private Sub Workbook_Open()
Sheets(2).Name = Sheets(2).Range("B2").Value

End Sub

Voila trouver