Easy navigation through lots of worksheets

Hi friends,

When you got lots of sheets in excel workbook, it is hard to navigate through them. Probably most of you know that it is handy to right-click on navigation bar at the bottom left corner in excel window and the menu with the list of sheets will show up (see atttached image1).
When you have lots of sheets, there is the last line "More sheets.." which shows up the "Activate" window (see atttached image2), where we can select any worksheet in activeworkbook to navigate. My problem is that I can not find any the command in VBA which will make this window ("Activate") to show up. I know that it would be easily built through VBA and Userforms, but my issue is to show up this window somehow (as it must be built-in) with or without VBA without using the mouse in this operation.

I have also attached my try to do the similar thing, however I still want to make the built-in window to apprear.

Thank you in advance for help

Hi okili
Welcome to the forum

Use this code by John Walkenback

Please Login or Register  to view this content.

Hello Pike,
Thanks for your answer, I created the Userform and added this code to it and it worked well.
However one little (but important for me) disadvantage still remains in both your suggested and my solutions, compared to original "activate" window.
This issue is selecting items when typing on keyboard to select the item.
For example when you have 3 worksheets with these names: Pike, Okili, John.
I want to type "John" fast and press enter to navigate to John's sheet. In our versions typing John will make it to select John first (when j is pressed on keyboard) and then Okili (when o is pressed). So that after typing John and pressing enter, Okili's sheet will be activated. In original (built-in) version, when you type anything it does not check only the first letter, but others too.
Hope I wrote the problem clearly, if not please tell me and will try to explain in other way.
Thanks