I am creating several shapes with the code shown below. It works fine.

The problem is that I do not know how to retrieve the shape's name (in the macro) when one shape is selected. Any ideas?

The following is part of the code that creates the shapes.

"
ActiveSheet.Shapes.AddShape(msoShapeRectangle, MyLeft, MyTop, _
MyHoursToGo * MyScale, MyHeight).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(204, 255, 255)
Selection.ShapeRange.Name = MyName
' Selection.OnAction = "Describe"
Selection.Characters.Text = MyJob & Chr(10) & MyPart & Chr(10) & MyOperation
With Selection.Characters.Font
.Name = "Arial"
.Size = MyFontSize
End With
"

Note that the "OnAction" is commented out because I cannot retrieve the individuals shape's name. Your help is appreciated.

Thank you.
Don