Absolutely FANTASTIC Don!!!,
That one goes in my secret goodie-stash........
Thanks

Vaya con Dios,
Chuck, CABGx3


"Don Guillett" wrote:

try this idea where the rectangle name is in col a
Sub NameShapes()
Sheets("yoursheetname").Select
For Each c In [setup!a4:a15]
ActiveSheet.Shapes(c).TextFrame. _
Characters.Text = c.Offset(0, 1)
Next c
End Sub

--
Don Guillett
SalesAid Software

"Deb Pingel" wrote
in message ...

Hello,
Does anyone know how to take a list from a columnm in Excell and have
each cell insert into a shape? I would eventually like to write a
macro to take a list of equipment and place it into individual circles
on another worksheet. This will be used for flow charting. However I
can't get past the first part where You can paste, or link into the
shape.
Thanks for any input, maybe it isn't possible?
Deb


--
Deb Pingel
------------------------------------------------------------------------
Deb Pingel's Profile:
http://www.excelforum.com/member.php...o&userid=20119
View this thread: http://www.excelforum.com/showthread...hreadid=523130