Finding a shapes name

[mattsgr1]

I have several rectangles on a sheet in my workbook. I am trying to write some code that will find the shapes name when clicked and enter this name into a cell, but am having no luck so far.

i.e. one shape is named Test. I want Test to be entered into cell A1 when I click on that shape. Ive tried something like Selection.ShapeRange.Name but that doesn't seem to work.

Any ideas??

[sweep]

Hi,

How about assigning macros to the shapes, which identify the shape via a cell?

eg

Please Login or Register  to view this content.

[mattsgr1]

That was the idea - to have macros assigned to each one, however I only want one macro as I have a lot of shapes. That is why it needs to identify the shape that was just clicked

[mikerickson]

If each of your shapes is assigned to this sub, I think it will do what you want.

Please Login or Register  to view this content.

[mattsgr1]

Yes that works great.

Thank you for your help