Hi,

If you assign the shape to an object then you can retrieve and set
properties.

'---------------
Sub x()
Dim shpTemp As Shape

Set shpTemp =
ActiveChart.Shapes.AddTextbox(msoTextOrientationHo rizontal, _
31.5, 8.5, 122.75, 42#)
shpTemp.TextFrame.Characters.Text = shpTemp.Name

End Sub
'-----------------

PBN wrote:
ActiveChart.Shapes.AddTextbox(msoTextOrientationHo rizontal, 31.5, 8.5, _
122.75, 42#).Select
generate a automatic name "Text box X" x= number auto number
How to get name on textbox or set name in shapes at chart

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info