Print the Shape Name and Text You Clicked

If you want to know the shape name and shape inside text which you have clicked to Run a Macro. Snapshot Below-

Here is the code

Sub test()
' it will display you the shape name which you have clicked
MsgBox "Shape Name ---------> " & Application.Caller
' it will display you the text inside the shape which you have clicked
MsgBox "Shape Inside Text ---------> " & ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text

End Sub

assign this macro to each shape.


Excel Macro File http://www.filefactory.com/file/cd26f4b/n/Design.xlsm