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