Private Sub Workbook_Open()

    Dim 단축메뉴 As CommandBar
    Dim 새명령 As CommandBarControl
 
    On Error Resume Next

        Application.OnKey "^+{D}", "달력표시"

        Set 단축메뉴 = Application.CommandBars("Cell")
        
        With 단축메뉴
            
            .Reset
            
            Set 새명령 = .Controls.Add(Type:=msoControlButton)
        
        End With
 
        With 새명령
            .Caption = "날짜 선택(&D)..."
            .OnAction = "달력표시"
            .BeginGroup = True
        End With

End Sub