Запускать несколько макросов IRibbonControl

Question

У меня есть пользовательская лента, и я пытаюсь запустить несколько макросов IRibbonControl. Каждый макрос IRibbonControl очищает диапазон ячеек на рабочем листе. Пользователь должен использовать пользовательскую ленту, а все остальные функции лент Excel отключены.

Я уже попробовал нормальное решение, но это не работает. Я предполагаю, что это потому, что это макрос IRibbonControl.

Sub Button1_Click()
    Call xxxxxxxxxxxxxxx 'Macro1
    Call xxxxxxxxxxxxxxx 'Macro2
    Call xxxxxxxxxxxxxxx 'Macro3
End Sub

Макрос IRibbonControl похож на приведенный ниже ....

Sub Glazing_ClearContents(rib As IRibbonControl)
Dim Ans As VbMsgBoxResult
Ans = MsgBox("Are you sure you want to clear the General Information data? This cannot be retrieved once erased", vbYesNo + vbQuestion)
If Ans = vbNo Then Exit Sub
Dim Rng As Range
Dim c As Variant
Set Rng = Sheets("Glazing_Systems").Range("C12:F42", "I12:K42")
    For Each c In Rng
        If c.Locked = False Then
            c.ClearContents
        Else
        End If
Next c
End Sub

Любая помощь будет принята с благодарностью. Я нашел ответы, но не могу найти ничего, кроме стандартного макроса, вызывающего другие макросы.