Problem mit Hyperlink

Sub BlattnamenLinkEin()
Dim Zähler As Integer, Anzahl As Integer, WksZähler As Integer
Dim Wks As Worksheet
Dim TxtWks As String, TxtHyp As String
Anzahl = Worksheets.Count - 8
Application.DisplayAlerts = False
WksZähler = 0
For Each Wks In Worksheets
WksZähler = WksZähler + 1
If WksZähler > 8 Then
TxtWks = Wks.Name
TxtHyp = Wks.Name
Range("Tabellen.Blatt").Offset(WksZähler - 8, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:="ABC(VBA).xlsm", TextToDisplay:=TxtHyp
Selection.Hyperlinks(1).SubAddress = TxtWks & "!A1"
End If
Next Wks
Application.DisplayAlerts = True
End Sub