Sheet link in Menu bar

[atuljadhavnetafim]

Dear Expert

I have 40+ sheet in excel file and most sheets are interlink, most of the time i need to switch over to sheet very freqeuntly and because of this it is very difficult to find the sheet as i can see only 4-5 sheet in the window, then I used to right click at bottom line and get the list of sheet and select the sheet
but can i have sheet name appear in separate menu bar and by clicking there i switch over to that sheet?
in below, i have created "Atul" menu bar and i need sheet name in red area so i can click on that sheet name and go direct to that sheet.
is this possible this way or you have any better solution.

 

[mehidy1437]

Hi check this,
Excel Navigator List

 

[Yongle]

I use a very simple userform with a shortcut to make it appear

1 Create a userform
2 Change its name to UserFormListSheets
3 Change the caption to Click on sheet
4 Make it almost as tall as will fit your Excel screen and wide enough to fit your longest sheet name
5 Add a Listbox and make it almost as big as the userform
6 Add userform code below
7 Add macro MySheets to a module
8 Add shortcut to macro MySheets

Userform code

Private Sub ListBox1_Click()
    On Error Resume Next
    ActiveWorkbook.Sheets(ListBox1.Text).Activate
    On Error GoTo 0
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ListBox1.AddItem ws.Name
    Next ws
End Sub

Code in module

Sub MySheets()
    UserFormListSheets.Show
End Sub

Note
Above is deliberately simple - code could be tailored to handle hidden sheets etc
Functionality available in every workbook if code and userform are placed in personal macro workbook