Inhaltsverzeichnis - Code falsch 2ter

Sub Inhaltsverzeichnis()
Dim i As Integer
Dim Inhalt As Worksheet, Blatt As Worksheet
For i = 1 To ThisWorkbook.Sheets.Count
If ThisWorkbook.Sheets(i).Name = "Inhaltsverzeichnis" Then
Set Inhalt = ThisWorkbook.Sheets(i)
GoTo IstVorhanden:
End If
Next i
Set Inhalt = Worksheets.Add
Inhalt.Name = "Inhaltsverzeichnis"
IstVorhanden:
i = 1
For Each Blatt In Worksheets
If Blatt.Name  Inhalt.Name Then
Inhalt.Cells(i, 1).Value = Blatt.Name
Inhalt.Hyperlinks.Add _
Anchor:=Inhalt.Cells(i, 1), Address:="", SubAddress:=Blatt.Name & "!A1", TextToDisplay:=Blatt.  _
_
Name
i = i + 1
End If
Next
Inhalt.Cells(1, 1).EntireColumn.AutoFit
End Sub

Eigentlich geht das wunderbar aber die Hyperlinks gehen nur für einige Blätter - für die meisten nicht.
Mir ist nur aufgefallen, dass bei den Hyperlinks einige Tabellenblätter mit ' am Anfang und am Ende geführt werden und andere nicht (wenn man die Hyperlinks von Hand setzen will)
Kennt jemand die Ursache?
Gruß Lutz