I need to get the name of a drawing object when I click it via a left click,
something like:

Sub TheDrawingObject

msgbox(me.name)

End Sub

I need to assign it to a variable. Any help would be greatly appreciated.