I have a series of objects on the active sheet.
I click on one
I need a response telling me which object I selected.
For example:

Set WS = Worksheets(ActiveSheet.Name)

For lngIndex = ActiveSheet.Shapes.Count To 1 Step -1

msgbox "Object select is:" & ?????
next