Wie kann man ein Inhaltsverzeichnis einer Arbeitsmappe und Tabellenblätter 
erstellen und mit Hyperlinks versehen ?

Markiere eine beliebige Zelle Deiner Tabelle.
In der Menüleiste wähle Einfügen – Namen definieren.

Als Name wähle nun z.B. "Inhaltsverzeichnis" und in das Eingabefeld "bezieht sich auf" 
schreibst Du nachstehende Formel

=ARBEITSMAPPE.ZUORDNEN(1+0*JETZT())

Bestätige das mit OK

Jetzt schreibe in deinem Übersichtsblatt in irgendeine Zelle diese Formel und kopiere sie
beliebig oft nach unten:

=WENN(ZEILE(A1)>ANZAHL2(x);"";HYPERLINK("#'"&INDEX(x;ZEILE(A1))&"'!A1";TEIL(INDEX(x;ZEILE(A1));FINDEN("]";INDEX(x;ZEILE(A1)))+1;31)))

Im Ergebnis hast Du nun alle Blätter aufgelistet und sie sind gleichzeitig 'verlinkt'.

Dieses Makro erstellt ein neues Blatt und listet alle 
vorhandenen Tabellen und 'hyperlinkt' sie !

Makro-Code:       

Sub TabInhaltZusammen()
Dim Tabelle As Worksheet
Dim i As Integer
Worksheets.Add.Move before:=Worksheets(1)
ActiveSheet.Name = "Inhalt"
Cells(2, 2).Value = "Enthaltene Blätter"
i = 3
For Each Tabelle In ActiveWorkbook.Worksheets
If Tabelle.Name <> "Inhalt" Then
Cells(i, 2).Value = Tabelle.Name
Tabelle.Hyperlinks.Add Anchor:=Cells(i, 2),_
Address:="", SubAddress:=Tabelle.Name & _
"!A1", ScreenTip:="Hyperlink klicken", _
TextToDisplay:=Tabelle.Name
i = i + 1
End If
Next Tabelle
End Sub