how to get the name of the shape clicked

[Wizz]

Hi,

Is there any way that I can get the name of the shape i just clicked to call a procedure?

I have 35 shapes in my Worksheet.
Each shape has a different name. Each shape has a macro procedure assigned, wich do almost the same procedure (with just small differences, depending on from wich shape the macro was called).

I want to make just one macro procedure and catch from wich shape the macro was called.

[incjourn]

I don't think there is a response in application events when you click shape.
You could try this. Create the shapes and assign each to a macro and then have a variable in you main subroutine. For example...

Sub Rectangle3_Click()  'Assigned to shape 'Rectangle 3'
N = "Rectangle3"
Call myMacro("Rectangle3")
End Sub

Sub Rectangle4_Click() ' 'Assigned to shape 'Rectangle 4'
N = "Rectangle4"
Call myMacro("Rectangle4")
End Sub

Sub myMacro(clck)
MsgBox "You clicked, " & clck
End Sub

Hope that helps.

[Wizz]

Hi Phil!
Thats what I am currently doing. But I wanted a better solution; in wich I do not have to write 35 Subs to call a procedure.

But I thank you very much for your time and efford.

[royUK]

Try adapting this code that uses Application.Caller

Option Explicit

Sub whoClicked()
ActiveSheet.Shapes(Application.Caller).Select
MsgBox Selection.Name
End Sub

[Wizz]

Exactly what I needed!

Thank you very much!

[sundharam]

That was Awesome!

[LizLiz]

Thank you very much! I spent a lot of time looking for that! Thanks! Thanks! Thanks!