You're welcome.
Here's an alternative. Use this with a command button. Or assign a macro with this code to a shape if you like.
Private Sub CommandButton1_Click() 'On Error Resume Next Select Case ActiveWorkbook.Sheets.Count Case Is <= 16 Application.CommandBars("Workbook Tabs").ShowPopup 'X:=650, Y:=512 'screen location optional Case Else Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute End Select End Sub
Bookmarks