Sub LinkSheetNames()

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With

    i = 2
    n = ActiveWorkbook.Worksheets.Count
    For b = 1 To n
        If Worksheets(b).Name = "Table of Contents" Then
            Worksheets(b).Delete
        Else
            Worksheets.Add.Name = "Table of Contents"
            Range("A1") = "Table of Contents"
            GoTo Table
        End If
    Next

Table:
    n = n + 1
    a = 2
    i = 2
    Do While i <= n
        Cells(a, 1).Select
        j = Worksheets(i).Name
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=j & "!A1", _
                                   TextToDisplay:=j
        a = a + 1
        i = i + 1
    Loop

    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With

End Sub