Sub Workbook_Open()
Dim myCustom As CommandBarControl
Dim cbcMenuBar As CommandBar
Dim AutoRequests As Workbook
Dim requestsheet As Worksheet
Set AutoRequests = Workbooks("Auto-Requests.xls")
Set requestsheet = AutoRequests.Worksheets("Setup")
Set cbcMenuBar = Application.CommandBars("Worksheet Menu Bar")
Set myCustom = cbcMenuBar.Controls.Add(Type:=msoControlPopup, before:=iHelpIndex)
With myCustom
.Caption = "&Auto Reports"
With .Controls.Add(Type:=msoControlButton)
.Caption = "&Delete Reports" 'Caption on Menu
.OnAction = requestsheet.Name & "RemoveReports"
.FaceId = 3096 'Icon on menu
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "&Setup Working Directory" 'Caption on Menu
.OnAction = requestsheet.Name & "!SetupProcedure"
.BeginGroup = True 'Separtor line above
.FaceId = 2556 'Menu Icon
End With
End With
End Sub
Bookmarks