Here's a sub by Jim Rech

Sub SheetNav()
On Error Resume Next
If ActiveWorkbook.Sheets.Count <= 16 Then
Application.CommandBars("Workbook Tabs"). _
ShowPopup 500, 225
Else
Application.CommandBars("Workbook Tabs"). _
Controls("More Sheets...").Execute
End If
On Error GoTo 0
End Sub

--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Willem Jan" wrote:
I know you can right click on the tab scrolling buttons to get a (short) list
of all worksheets and the option 'More sheets...' opens a window called
"Activate". is there a keyboard shortcut or a macro to invoke that "Activate"
window?