Jumping to a Specific Worksheet

Sam Gardner's macro works fine but it ignores any chart sheets and it must be repeated if worksheets are added, deleted, moved, or renamed. Hidden worksheets are included but their hyperlink does nothing.
My Excel Toolbox includes the following dynamic array function:
    =ListSheets([SkipHidden], [SkipHeader])
This function returns one row with sheet names in subsequent columns. To return the list in one column with several rows, use this:
    =TRANSPOSE(ListSheets(...))
After populating a column with sheet names, you can create a hyperlink to each sheet by adding a formula to the next column; however, there are certain issues when a hyperlink is created using the HYPERLINK function:
+ A hyperlink cannot reference a worksheet without identifying a cell, range, or name on that sheet
+ Activating such a hyperlink will change the worksheet’s previously selected cell or range
+ A hyperlink cannot reference a chart sheet because a chart sheet has no cells
+ A hyperlink referencing a hidden sheet will fail silently when activated
All of these issues are resolved by the following My Excel Toolbox function:
    =SheetNameLink(Sheet_Name, [Friendly_Name], [Screen_Tip])
For example, if cells A2:A20 contain a list of sheets created by the ListSheets function described above, the following formula in cell B2 would create a hyperlink to the worksheet or chart sheet listed in cell A2:
    =SheetNameLink(A2)
This formula can be duplicated in B2:B20. The ListSheets and SheetNameLink functions will recalculate (F9) if a sheet is added, deleted, moved, or renamed.
My Excel Toolbox also includes the following function:
    =SheetListUpdateLink([Friendly_Name], [Screen_Tip])
This function uses SuperLink to create a hyperlink that will list a workbook's sheets (including hidden sheets) in subsequent rows. Each sheet in the list includes a hyperlink to hide or activate (unhide) the sheet. For more information, review the PDF file UseSheetList.pdf.
The SheetsDialog macro (Ctrl+T S H) in My Excel Toolbox displays a sheet activation list at the bottom-left corner of Excel's window. This is similar to right-clicking a navigation button at the left of the sheet tabs (see the Tip's second paragraph). Here is an abbreviated version:

Sub SheetsDialog()
    Dim X, Y
    Const PxPerPt = 96 / 72
    With Application
        X = .Left * PxPerPt
        Y = (.Top + .Height) * PxPerPt
        .CommandBars("Workbook tabs").ShowPopup X, Y
    End With
End Sub

Finally, Ctrl+PageDown and Ctrl+PageUp are shortcuts to move from sheet to sheet.
See https://sites.google.com/view/MyExcelToolbox/
and https://excelribbon.tips.net/T011679_Retrieving_Worksheet_Names.html

This "Jump To" and Add a Table of Contents function would be awfully clunky if you had many sheets. What you really want is a macro that will create your TOC for you. The macro below will do that, titling the Table of Contents as sheet "TOC9999", where the digits are randomized between 1 and 1000. This means if you run it multiple times (which you're likely to do, if you have a workbook with dozens of sheets you'll probably be adding more) you're unlikely to get an error based on already having an existing sheet name. Then you can just adjust the initial sheet.

Sub AddTOC()
'
' AddTOC Macro

Dim WS As Worksheet
Dim WS_Count As Integer
Dim I As Integer
Dim strTOCName

Sheets.Add Before:=Sheets(1)
'Okay, I hate the clunkiness of checking for the sheet first. I'm just going to add a random number to the name
'It's lazy, but I can pretty much just delete any TOC's I don't want or remove the random number in the name
'if I'm running it multiple times or updating the TOC

upperBound = 1000
lowerBound = 1
strRandom = Int(2 + Rnd * (upperBound - lowerBound + 1))
''

strTOCName = "TOC" & strRandom
Sheets(1).Name = strTOCName

Sheets(strTOCName).Range("A1").Select
ActiveCell.Value = "Table of Contents"
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 2 To WS_Count
strName = Worksheets(I).Name
ActiveCell.Offset(1, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
strName & "!A1", TextToDisplay:=strName

Next I


End Sub

One thing that is seldom mentioned is that, when you right-click the sheet navigation buttons you can start typing the start of the sheet name and the cursor will jump to the sheet name in the list that starts with those characters. If you can type fast enough I have managed to 5 characters to work which works well if your sheets names are say Account Numbers or Cost Centre numbers. If you have multiple sheets starting with a similar prefix then each time you type those characters it will jump to the next sheet name in the list starting with those characters.