A named cell is a range object with a string name, so:

Sub Nms()
Range("A1").Name = "NamedCell"
Range("NamedCell").Value = Range("A1").Value
MsgBox Range("NamedCell").Address
End Sub


"Xavier" wrote:

I have no problem in addressing cells with name, adding names to the list but
have not yet found the way to retreive the name of the active cells. If any
one has a clue, this would be very appriciated.