Warum listet Excel trotzdem auf?

Sub Tabellenliste()
Dim wks As Worksheet
Dim Zeile As Long
Dim xlsortNorMal As String
'nach alter Liste suchen und löschen
For Each wks In ThisWorkbook.Worksheets
If wks.Name = "Tabellenliste" Then
Application.DisplayAlerts = False
wks.Delete
Application.DisplayAlerts = True
End If
Next wks
Worksheets.Add
ActiveSheet.Name = "Tabellenliste"
ActiveSheet.Move before:=Worksheets(1)
Cells(2, 2).Value = "Enthaltene Blätter"
Zeile = 4
'alle Tabellen eintragen
For Each wks In ThisWorkbook.Worksheets
'mit Hyperlink
If Not wks.Name = "Tabellenliste" Or Not wks.Name = "Serien_Blaetter" Or Not wks.Name = "KST1"   _
_
Then
With ThisWorkbook.Worksheets("Tabellenliste").Cells(Zeile, 2)
.Hyperlinks.Add Cells(Zeile, 2), Address:="", SubAddress:=wks.Name ' & "!A1"
End With
Else
End If
Zeile = Zeile + 1
Next wks
End Sub