Rectangle 1 aaa
Rectangle 2 bbb
Rectangle 3
Rectangle 4 ddd

From the list above I use a macro to change the text

Sub NameShapes()
Sheets("yrousheet").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

"Finance guy" wrote in message
...

How can I enumerate through all worksheets and rectangles and add a text
string to all textboxes all of them currently say ©2006 I need to
change
it to 2007.