Как получить Range для возврата его имени?

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

Приведенный выше код покажет фактический адрес диапазона, а не имя. Почему?
Как получить именованный диапазон для возврата его имени?