Вставка названия нажатой фигуры-"кнопки" в ячейку - VBA

Формулировка задачи:

Есть несколько фигур-"кнопок" (А,В,С...) со своими уникальными макросами: кнопка А вставляет в ячейку значение "А", кнопка В - "В" и т.д. Как обратиться к "Названию" нажатой кнопки и использовать его в качестве параметра, чтобы сделать один универсальный макрос?

Решение задачи: «Вставка названия нажатой фигуры-"кнопки" в ячейку»

textual
                            Листинг программы 
                        

                            Private Sub МакросALL()    
    Range("A1") = ActiveSheet.Shapes(Application.Caller).TextEffect.Text
    'Range("A1") = ActiveSheet.Shapes(Application.Caller).DrawingObject.Caption
    'Range("A1") = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Caption
End Sub
                        