How to create a window with all worksheets using VBA?

I want my Excel files to be easy to navigate. I have a lot of worksheets, and switching between them using PgUp and PgDn is not very convenient.

I found this command

Application.CommandBars("Workbook Tabs").ShowPopup

But if there are more than 15 sheets, it doesn’t display all sheets. And if you click on "More sheets …", then this window will appear:

Is there a way to display this window right away?

>Solution :

Is there a way to display this window right away?

You mean like this?

Application.CommandBars("Workbook Tabs").Controls(16).Execute

Usage would be like

If ThisWorkbook.Sheets.Count > 16 Then
    Application.CommandBars("Workbook Tabs").Controls(16).Execute
Else
    Application.CommandBars("Workbook Tabs").ShowPopup
End If