Mise à jours noms d'onglets en automatique

Bonjour la communauté,

J'ai le code ci dessous sur chacune de mes feuilles (20 feuilles) :

Private Sub Worksheet_Activate()
ActiveSheet.Name = Sheets("Synthèse").Range("A3")
End Sub

Je souhaiterais le rendre automatique sans avoir besoin de cliquer sur l'onglet pour qu'il se renomme .

J'ai cherché sur le forum, mais en vain.

Bonjour la communauté,

N'ayant pas trouvé ma solution j'ai opté pour autre chose