How do you get a Range to return its Name?

问题

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?

回答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

回答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.

来源：https://stackoverflow.com/questions/3630496/how-do-you-get-a-range-to-return-its-name