Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If ComboBox1.TopIndex < 0 Then
        Frame1.Caption = "откройте список"
        Exit Sub
    End If
    Frame1.Caption = Range("C1:C10").Cells(Int(Y / 9.65) + 1).Value
End Sub

set wShell = WScript.CreateObject("WScript.Shell")
iRes = wShell.Run("EXCEL.EXE", 1)

Dim xlApp, xlWb, xlWs
Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Add: Set xlWs = xlWb.Worksheets(1)
xlApp.Visible = TRUE
Set xlWs = Nothing: Set xlWb = Nothing: Set xlApp = Nothing

Set xlWb = xlApp.Workbooks.Open("C:\Users\User\Documents\MoяНадстройка.xlam")

xlApp.EnableEvents = false/true
xlApp.IgnoreRemoteRequests = false/true
xlApp.AutomationSecurity = 1
xlApp.AddIns.Add("C:\Users\User\Documents\НадстройкаCOM.dll").Installed = True 
xlApp.AddIns("НадстройкаCOM.dll").Installed = True
xlApp.VBE.ActiveVBProject.References.AddFromFile "C:\Users\User\Documents\НадстройкаCOM.dll"

Private Sub Workbook_Open()
    Application.ScreenUpdating = 1
End Sub

'например, обновились формулы на листе, сработало событие Calculate
Private Sub Worksheet_Calculate()
   Application.EnableEvents = 0
      'как посмотреть на флажок? (или в идеале перебрать все имеющие флажки листа для проверки их свойств)
   Application.EnableEvents = 1
End Sub

Sub Флажок1_Щелчок(): Call MyTest: End Sub