¿Cómo se obtiene un Rango para devolver su Nombre?

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

El código anterior mostrará la dirección real del rango, no el nombre. ¿Por qué?
¿Cómo obtengo un rango con nombre para devolver su nombre?

Respuestas a la pregunta(2)

Su respuesta a la pregunta