Hallo,

ich habe aus einem Buch folgenden VBA-Code, der leider bei Schritt 6 aussteigt und einen Fehler bringt.
Ich würde gerne verstehen, wieso und was ich dagegen tun muss.
Im Forum habe ich zwar schon Alternativen gefunden, doch geht es mir hier - wie erwähnt - auch um das Verstehen des hier konkret auftretenden Problems.
Hoffe, ich habe mich nicht vertippt.

Code:
Sub Inhalt()
'Schritt1 Variablen deklarieren
Dim i As Long

'Schritt2 Voriges Inhaltsverzeichnis löschen, falls vorhanden
On Error Resume Next
Apllication.DisplayAlerts = False
Sheets("Inhalt").Delete
Apllication.DisplayAlerts = True
On Error GoTo 0

'Schritt3 Neues Tabellenblatt f. Inhalt als erstes Blatt einfügen
ThisWorkbook.Sheets.Add before:=ThisWorkbook.Worksheets(1)
ActiveSheet.Name = "Inhalt"

'Schritt4 Schleife mit i als Schleifenzähler starten
For i = 1 To Sheets.Count

'Schritt5 Nächste verfügbare Zeile auswählen
ActiveSheet.Cells(i, 1).Select

'Schritt6 Name des Tabellenblatts und Hyperlink (Anchor) einfügen
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(i, 1), _
Address:="", _
SubAdress:="'" & Sheets(i).Name & "'!A1", _
TextToDisplay:=Sheets(i).Name

'Schritt7 i inkrementieren und evt. weiterer Schleifendurchlauf
Next i
End Sub

Vielen Dank für die Hilfe und schon mal einen guten Start ins neue Jahr