Здравствуйте, помогите советом.
На листе Excel программно созданы 40 элементов
ActiveSheet.Shapes.Range(Array("O1")), ActiveSheet.Shapes.Range(Array("O2")), ActiveSheet.Shapes.Range(Array("O3")), ....
Необходимо чтобы при нажатии на любой из объектов < О2_Click() > выходило сообщение о номере выбранного объекта.
Ничего лучше придумать не смогла как

Private Sub O1_Click()
MsgBox "Object N 1"
End Sub

Private Sub O2_Click()
MsgBox "Object N 2"
End Sub

Private Sub O3_Click()
MsgBox "Object N 3"
End Sub

и 40 повторений...

Помогите советом как определить какой из элементов был нажат или выделен.
Можно ли проверять что-нибудь типа --- ActiveSheet.Shapes.Range(Array("O1")).Selection =True

Дмит,

спасибо за ответ.
Проблема в том,что назначить один макрос не получается. Все объекты выделяю и возможность назначить макрос не подсвечивается. Может это быть потому что Shape Image-картинки?

Казанский,
спасибо вам!
Все посмотрела, только не могу выделить имя элемента O3_Click(),
чтобы потом вывести его в сообщение MsgBox "Object N 3".

....вернее сказать какое условие можно поставить, чтобы выделял из всех объектов на листе только тот который нажали.


Public Sub All_print_all_Rnk()
Dim s$
For Each x In colCB

If x.cb Then MsgBox x.cb.Name 'не работает, т.к. x.cb. это Image и проверить "True"/ "False" не получается
Next

Казанский,
спасибо за идею. Разобралась со всем.
Использовала еще
http://www.excel-vba.ru/chto-umeet-excel/kak-bystro-zapolnitochistit-elementy-na-formetextbox-y-combobox-y/