How do you get a Range to return its Name?

Question

Dim sampleRange as Range
Set sampleRange = Worksheet.Range(Cells(1,1),Cells(1,4)
sampleRange.Name = "Range1"
MsgBox sampleRange.Name

The above code will show the actual address of the range, not the name. Why?
How do I get a named range to return its name?

Answer 1

For a Range, Name isn't a string it's a Name object, that you then take the Name property of to get the string:

MsgBox sampleRange.Name.Name

Answer 2

sampleRange.Name = "Range1" to name the range is poor practice

It only works because Name (the string containing "The Name") is the default property of Name.

Much better sampleRange.Name.Name = "Range1"

It's never good practice to use the default property without referring to it explicitly.

Good programming exactly controls the environment by referring explicitly to the property required.

Removes ambiguity as created the issue here. Eliminates the issue created if the default property is changed in a future update.