아~ 감동의 물결.. ㅠ_ㅠ
도구모음을 만드는것은 알았었지만.. 도구모음에 콤보박스를 만들 수 있다니.. +_+
툴바가 작아서 너무 많은 컨맨드 버튼이 있을때는 하나로 몰아버리자.. 콤.보.박.스! ㅋㅋㅋ

출처 : http://www.excellove.com/board/bbs/view.php?id=qa&no=32127&keyword=Command 콤보&sn=on&ss=on&sc=on

Option Explicit

Const cMenu As String = "_esTempMenu"

Sub dhMakeMenu()

Dim c As CommandBar

dhDeleteMenu

Set c = Application.CommandBars.Add(Name:=cMenu, Position:=msoBarTop)

c.Visible = True
    With c.Controls.Add(Type:=msoControlComboBox)
        .AddItem "메뉴 1"
        .AddItem "메뉴 2"
        .AddItem "메뉴 3"
        .AddItem "메뉴 4"
        .AddItem "종료"
        .ListIndex = 0
        .Text = "폴더 열기"
        .TooltipText = "엑셀의 모든 것 MagicSheet &엑사모"
        .OnAction = "dhMagicTest"
    End With
End Sub

Sub dhDeleteMenu()
On Error GoTo e1
    Application.CommandBars(cMenu).Delete
e1:
End Sub

Sub dhMagicTest()
Dim c As CommandBarComboBox
    Set c = Application.CommandBars.ActionControl
    Select Case c.List(c.ListIndex)
        Case "메뉴 1"
            dhTest1
        Case "메뉴 2"
            dhTest2
        Case "메뉴 3"
            dhTest3
        Case "메뉴 4"
            dhTest4
        Case "종료"
            dhQuit
    End Select
    c.ListIndex = 0
End Sub

Sub dhTest1()
    MsgBox "메뉴 1을 실행"
End Sub

Sub dhTest2()
    MsgBox "메뉴 2를 실행"
End Sub

Sub dhTest3()
    MsgBox "메뉴 3을 실행"
End Sub

Sub dhTest4()
    MsgBox "메뉴 4를 실행"
End Sub

Sub dhQuit()
    ThisWorkbook.Close
End Sub