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