Récupérer Nom de activecell en variable

[4Roses]

Bonjour le forum,

J'ai nommé dans une feuille 1000 celulles;je voudais faire apparaitre le nom de chaque cellule sélectionnée (lorsqu'elle celle-ci est sélectionnée) dans le cellule A1 ???

J'ai essayé dans VBA le code suivant
Nom=activecell.name mais cette variable me renvoie l'adresse de la celulle et non son NOM

Avez-vous une idée ?

 

[JeanMarie]

Bonsoir

Essaye ceci, partie à mettre dans un module

Sub Macro2()
   Range('b1') = ''
   On Error Resume Next
   Range('B1') = ActiveCell.Name.Name
End Sub

partie à mettre dans le code de la feuille concernée.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Macro2
End Sub

PS : Je ne suis pas un spécialite de la gestion d'erreur sur VBA.

@+Jean-Marie

 

[4Roses]

Alors là bravo

C'est exactement ce que je cherchai!
Réponse simple terriblement efficace.
Je ne m'en sortais pas avec l'aide

Encore merci et au plaisr