Is there a shortcut to view a list of all worksheets and navigate

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
Thanks for posting this Max.

One I had not seen before.

Also thanks to Jim for the code.


Gord Dibben MS Excel MVP
 
Back
Top