Pour un nom qui référence une cellule tu peux faire comme ceci:
Code:
Sub AfficherNomA1()
Dim nm As Name
For Each nm In ThisWorkbook.Names
If nm.RefersToRange = Range("A1") Then
MsgBox nm.Name
Exit For
End If
Next nm
End Sub
[edit] bien sûr tu remplaces Range("A1") par une variable Range . Par Exemple MyCell
Hello Pierrot
A+