Private Sub ComboBox1_Click()
Me.Hide
Application.Run (ComboBox1.List(ComboBox1.ListIndex))
End Sub

Private Sub UserForm_Activate()
Dim oo As Object, a&, b&, c&, dt$, arr(), wb As Workbook
Set wb = ThisWorkbook
Set oo = wb.VBProject.vbComponents
For a = 1 To oo.Count
  If oo.Item(a).Type = 1 Then
    With oo.Item(a).CodeModule
      If .CountofLines > 1 Then
        For b = 1 To .CountofLines
          dt = .Lines(b, 1)
          If InStr(dt, "Sub") > 0 And InStr(dt, ")") - InStr(dt, "(") = 1 Then
            c = c + 1: ReDim Preserve arr(1 To c): b = b + 1
            arr(c) = Mid$(dt, InStr(dt, "Sub") + 4, InStr(dt, "(") - InStr(dt, "Sub") - 4)
            Do While InStr(.Lines(b, 1), "End Sub") < 1: b = b + 1: Loop
          End If
        Next
      End If
    End With
  End If
Next
Me.Caption = "Выбор макроса"
ComboBox1.List = arr
Set wb = Nothing: Set oo = Nothing
End Sub