Como você obtém um intervalo para retornar seu nome?

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

O código acima mostrará o endereço real do intervalo, não o nome. Por quê?
Como obtenho um intervalo nomeado para retornar seu nome?

questionAnswers(2)

yourAnswerToTheQuestion