Schreiben aus einer bestimmten Zelle

Sub inhalt()
Set tbl = Worksheets.Add(before:=Worksheets(1))
Sheets(1).Name = "Inhaltsverzeichnis"
Range("A1").Select
ActiveCell.FormulaR1C1 = "Inhaltsverzeichnis"
Range("A1").Select
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
intzeile = 3
For i = 2 To ActiveWorkbook.Sheets.Count
tbl.Cells(intzeile, 1).Value = Worksheets(i).Name
tbl.Cells(intzeile, 1).Hyperlinks.Add Anchor:=Cells(intzeile, 1), Address:="", SubAddress:="'" & Worksheets(i).Name & "'" & "!B20", TextToDisplay:=Worksheets(i).Name
intzeile = intzeile + 1
Next i
End Sub