Implement below code to dashboard by completing necessary modifications in order to add custom menus
to Dashboard.  The goal is once they are clicked they will open their corresponding tabs.



This Workbook:

Option Explicit

Private Sub Workbook_Activate()
Run "AddMenus"
End Sub

Private Sub Workbook_Deactivate()
Run "DeleteMenu"
End Sub

CommandBarMenu Module:

Sub AddMenus()
Dim cMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Integer
Dim cbcCutomMenu As CommandBarControl

'(1)Delete any existing one. We must use On Error Resume next _
 in case it does not exist.
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("&New Menu").Delete
On Error GoTo 0

'(2)Set a CommandBar variable to Worksheet menu bar
 Set cbMainMenuBar = _
     Application.CommandBars("Worksheet Menu Bar")
     
'(3)Return the Index number of the Help menu. We can then use _
 this to place a custom menu before.
 iHelpMenu = _
     cbMainMenuBar.Controls("Help").Index
     
 '(4)Add a Control to the "Worksheet Menu Bar" before Help.
 'Set a CommandBarControl variable to it
 Set cbcCutomMenu = _
     cbMainMenuBar.Controls.Add(Type:=msoControlPopup, _
                  Before:=iHelpMenu)
                  
     '(5)Give the control a caption
     cbcCutomMenu.Caption = "&New Menu"
     
 '(6)Working with our new Control, add a sub control and _
 give it a Caption and tell it which macro to run (OnAction).
 With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
                .Caption = "Menu 1"
                .OnAction = "MyMacro1"
 End With
 '(6a)Add another sub control give it a Caption _
  and tell it which macro to run (OnAction)
 With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
                .Caption = "Menu 2"
                .OnAction = "MyMacro2"
 End With
  'Repeat step "6a" for each menu item you want to add.
  
  
 'Add another menu that will lead off to another menu
 'Set a CommandBarControl variable to it
Set cbcCutomMenu = cbcCutomMenu.Controls.Add(Type:=msoControlPopup)
   ' Give the control a caption
    cbcCutomMenu.Caption = "Ne&xt Menu"

 'Add a contol to the sub menu, just created above
 With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
                .Caption = "&Charts"
                .FaceId = 420
                .OnAction = "MyMacro2"
 End With
 

     
End Sub

Sub DeleteMenu()
    On Error Resume Next
    Application.CommandBars("Worksheet Menu Bar").Controls("&New Menu").Delete
    On Error GoTo 0
End Sub


On Action Macros Module: (replace below with Dashboard tab names and delete msgbox lines)
Option Explicit
Sub MyMacro1()
'MsgBox "I don't do much yet, do I?", vbInformation, "Ozgrid.com"
Sheets("Site Map").Select
End Sub
Sub MyMacro2()
'MsgBox "I don't do much yet either, do I?", vbInformation, "Ozgrid.com"
Sheets("All Products").Select
End Sub