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?

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?

Thanks for posting this Max.

One I had not seen before.

Also thanks to Jim for the code.


Gord Dibben MS Excel MVP

On Tue, 25 Sep 2007 23:04:04 -0700, Max wrote:

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

Pleasure, Gord.
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---