this may help
ActiveSheet.Shapes("Rectangle 1").Select
msgBox Selection.Name
========
Here is one I use to put text in the shapes from a list which may be of use

Sub NameShapes()
Sheets("checks").Select
For Each c In [setup!a4:a15]
ActiveSheet.Shapes(c).TextFrame. _
Characters.Text = c.Offset(0, 1)
Next c
End Sub
'With ActiveSheet.Shapes(1).TextFrame
' .Characters.Text = "abcdefg"
' .Characters(3, 1).Font.Bold = True
'End With

--
Don Guillett
SalesAid Software

wrote in message
ups.com...
While I am editing a cell's formula, I would like to be able to select
an autoshape (in the same way that one selects a range) and somehow
have the name of that autoshape be inserted into the formula, just like
a selected range.

Is this simply impossible, or is there a way to coerce Excel to do this
using VBA?

Regards,

Wanders