"Activate" window

[Peter]

Hi,
When using many worksheets, you can list them bij rightclicking the
navigation- arrows for the sheets down-left on the screen.
When using a lot of sheets you can choose "more Sheets" and then opens a
window called "activate" to choose the sheet u wnat to see.
Does some-one know the code to open that "activate"window from a macro??
Thanks

 

[Dave Peterson]

From a post by Jim Rech:

Option Explicit
Sub aa()
On Error Resume Next
Err = 0
Application.CommandBars("Workbook Tabs").Controls("More sheets...").Execute
If Err <> 0 Then Application.CommandBars("Workbook Tabs").ShowPopup
End Sub