Переназначение макросов на автофигурах - VBA

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

Добрый вечер. Помогите разобраться. У меня на листе есть три автофигуры с назначенными макросами (Макрос1, Макрос2, Макрос3). Рядом таблица - в которую вписаны названия автофигур и макросы, которые назначены им. Подскажите как макросом - переназначить макросы для автофигур? (Например если в таблице - напротив автофигуры "Oval 3" - написать "Макрос 1" и нажать на оранжевую кнопку - то на автофигуру "Oval 3" - вместо "Макроса 3" будет назначен "Макрос 1".)

Решение задачи: «Переназначение макросов на автофигурах»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub pr()
    a = Range("B4").CurrentRegion.Value
    For i = 1 To UBound(a)
        ActiveSheet.Shapes(a(i, 1)).OnAction = a(i, 2)
    Next
End Sub