ShapeRange.Name (Word)

Devuelve o establece el nombre del objeto especificado.

Dim sre As ShapeRange: Set sre =  
sre.Name =