Tom,
If I place MsgBox(shObj.Name) within the "for" loop, it will displa
"Rectangle 1",
"Rectangle 2" etc. So I deduced that the
Set shObj = .Parent.Shapes.AddShape(Type:=msoShapeRectangle, _
Left:=.Left + (.Width
rectSz) / 2, _
Top:=.Top + (.Height
rectSz) / 2, _
Width:=rectSz, _
Height:=rectSz)
block of code names the shape. Therefore I built the shape name i
statement:
myRect = "Rectangle " & r. I am certainly open to a better method an
is the reason I posted.
Regards,
RPrinceto

--
RPrinceto
-----------------------------------------------------------------------
RPrinceton's Profile: http://www.excelforum.com/member.php...nfo&userid=249
View this thread: http://www.excelforum.com/showthread.php?threadid=37746