Inhaltsverzeichnis - Code falsch?

Sub Inhaltsverzeichnis()
Dim i As Integer
Dim Inhalt As Worksheet, Blatt As Worksheet
Set Inhalt = Worksheets.Add
On Error Resume Next
Inhalt.Name = “Inhaltsverzeichnis”
On Error GoTo 0
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 _
8243;, TextToDisplay:=Blatt.Name
i = i + 1
End If
Next
Inhalt.Cells(1, 1).EntireColumn.AutoFit
End Sub

Der geht bei mir nicht weil da komische Zeichen drin sind.
Jemand hat geschrieben das
subAdress:= “‘”& Blatt.Name & “‘!A1″ )
besser wäre?
Kann jemand den Code so übersetzen/ändern dass er geht?
Danke Gruß Jens