Click on shape to return message box of shape name

Scoured the internet for an hour and still canot find a solution to something probably quite simple

im using 2010

When i click on a shape i want a message box to return the shape name.

There are over 100 shapes and i dont want to have to create a seperate macro for each.

Thanks for any help

Beat