Attribute VB_Name = "TableOfContents"
' Builds a "TOC" sheet with a hyperlink to every other worksheet.
Sub CreateTableOfContents()
    Dim ws As Worksheet, toc As Worksheet, i As Long
    On Error Resume Next
    Application.DisplayAlerts = False
    ThisWorkbook.Sheets("TOC").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0

    Set toc = ThisWorkbook.Sheets.Add(Before:=ThisWorkbook.Sheets(1))
    toc.Name = "TOC"
    toc.Range("A1").Value = "Table of Contents"
    toc.Range("A1").Font.Bold = True
    i = 3
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "TOC" Then
            toc.Hyperlinks.Add Anchor:=toc.Cells(i, 1), Address:="", _
                SubAddress:="'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
            i = i + 1
        End If
    Next ws
End Sub