ShapeRange.Name (Word)

Returns or sets the name of the specified object.

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