Assigning multiple shapes to macro.
 

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.

Assigning multiple shapes to macro.
 

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.

Assigning multiple shapes to macro.
 

Beautiful, thanks mate

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


"Tom Ogilvy" wrote:

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.