' create all the user interface items
On Error GoTo CreateMenuItems_Error ' create the menu items in the code window and code break window With VBInstance.CommandBars("Code Window").Controls Set MenuItem1 = .Add(msoControlButton) MenuItem1.Caption = "&Append To Clipboard" MenuItem1.BeginGroup = True Set MenuHandler1 = VBInstance.Events.CommandBarEvents(MenuItem1) Set MenuItem2 = .Add(msoControlButton) MenuItem2.Caption = "Clipboard &History" Set MenuHandler2 = VBInstance.Events.CommandBarEvents(MenuItem2) End With With VBInstance.CommandBars("Code Window (Break)").Controls Set MenuItem3 = .Add(msoControlButton) MenuItem1.Caption = "&Append To Clipboard" MenuItem1.BeginGroup = True Set MenuHandler3 = VBInstance.Events.CommandBarEvents(MenuItem3) Set MenuItem4 = .Add(msoControlButton) MenuItem4.Caption = "Clipboard &History" Set MenuHandler4 = VBInstance.Events.CommandBarEvents(MenuItem4) End With Exit Sub CreateMenuItems_Error: MsgBox "Unable To create necessary menu items", vbCritical |