use the caller property

Sub Generic_click()
Dim sName as String, shp as Shape
sName = Application.Caller
set shp = ActiveSheet.Shapes(sName)


end Sub

--
Regards,
Tom Ogilvy

"ben" (remove this if mailing direct) wrote in message
...
At run-time, various Auto-Shapes are added and deleted, and bulk assigned
to
one macro. Is there any way to determine which auto-shape called the
macro?
Eg. was it Shape1,Shape2,Shape3, etc...




--
When you lose your mind, you free your life.