Assigning multiple shapes to macro.

[ben]

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...

 

[Tom Ogilvy]

use the caller property

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


end Sub

 

[ben]

Beautiful, thanks mate