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