Горячая клавиша на макрос в надстройке

Option Explicit
 
Public Sub Workbook_Open()
    Application.OnKey "{RIGHT}", "ОткрытьПапкуДинамика"   ' Перехват клавиши  RIGHT - ВПРАВО.
    Application.OnKey "{UP}", "Test"   ' Перехват клавиши  UP - ВВЕРХ.
End Sub

Sub ОткрытьПапкуДинамика()
    Dim myFolder As String
    myFolder = "C:\Users\Ooos\Desktop\Динамика"
    Shell "explorer.exe """ & myFolder & """", vbNormalFocus
End Sub

Option Explicit  
Dim gRibbon         As IRibbonUI
 
Sub Test(control As IRibbonControl)
 
    Dim dokumentov  As Long
 
    With ActiveSheet.Range("H1")
        .Formula = "=SUMIFS(C2:C50000, F2:F50000, TODAY())"
        .Value = .Value
    End With
 
    dokumentov = ActiveSheet.Range("H1")
 
    If Not gRibbon Is Nothing Then
        gRibbon.InvalidateControl "Бокс_1"
    End If
    
    If Not gRibbon Is Nothing Then
        gRibbon.InvalidateControl "Бокс_2"
    End If
    
     If Not gRibbon Is Nothing Then
        gRibbon.InvalidateControl "Бокс_3"
    End If
     
    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
End Sub
 
Sub CallTest(control As IRibbonControl)
    Call Test(control)
End Sub
 
Sub dokumentov(editBox As IRibbonControl, ByRef text)
    Dim dokumentov  As Long
    dokumentov = ActiveSheet.Range("H1")
    text = "   " & dokumentov
End Sub
 
Sub RibbonLoaded(ribbon As IRibbonUI)
    Set gRibbon = ribbon
End Sub
 
Sub Segodnja(editBox As IRibbonControl, ByRef text)
    Dim dtToday As Date
        dtToday = Now
    text = "   " & Format(dtToday, "dd mmmm yyyy г.")
End Sub
 
Sub Summa(editBox As IRibbonControl, ByRef text)
    Dim Summa  As Long
    Summa = ActiveSheet.Range("I1")
    text = "   " & Format(Summa, "0.00" & " руб")
End Sub
 
Sub CallОткрытьПапкуДинамика(control As IRibbonControl)
    Dim myFolder As String
    myFolder = "C:\Users\Ooos\Desktop\Динамика"
    Shell "explorer.exe """ & myFolder & """", vbNormalFocus
End Sub

Option Explicit 
Public Sub Workbook_Open()
    Application.OnKey "{RIGHT}", "ОткрытьПапкуДинамика"   ' Перехват клавиши  RIGHT - ВПРАВО.
    Application.OnKey "{UP}", "КликНаКнопкуСтарт"   ' Перехват клавиши  UP - ВВЕРХ.
End Sub

Option Explicit
Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
 
Sub КликНаКнопкуСтарт()
    SetCursorPos 500, 100  ' координаты центра кнопки "Старт валидации" на ленте надстройки относительно экрана.
               mouse_event &H2, 0, 0, 0, 0
               Sleep (300)
               mouse_event &H4, 0, 0, 0, 0
End Sub

Sub CallTest()
    Call Test(Nothing)
End Sub

Public Sub Workbook_Open()
 
    Application.OnKey "{RIGHT}", "ОткрытьПапкуДинамика"   ' Назначаю перехват клавиши  RIGHT - ВПРАВО.
    Application.OnKey "{UP}", "CallTest"   ' Назначаю перехват клавиши  UP - ВВЕРХ.
 
End Sub

MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID