Message d'erreur sur mise à jour nom onglet à partir d'une cellule

Bonjour,

J'ai une erreur depuis un certains temps sur une macro qui met le nom de mon onglet jour en instantanée.
Voici le code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("N1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

Voici l'erreur que j'ai :

Le code de la macro est stockée dans la feuille car je ne veux pas qu'elle s'actualise en permanence et pas nécessairement dans tous les onglets.

Merci par avance pour votre retour

PS : je pensais que mon post était apparu hier mais a priori, il y a du avoir un bueug

Bonjour,

Le message est pourtant clair, non ?

Vous renommez une feuille avec le nom d'une autre feuille. Avant de vouloir renommer la feuille active, vérifiez qu'aucune autre feuille ne porte déjà ce nom.

Merci pour votre retour j'avais bien 2 feuilles Excel avec la même valeur dans la cellule N1.

Mais le problème persiste après correction....