Like in VBA findet Text nicht

Sub ZeilenLoeschen()
Dim wks As Worksheet
Dim lngZeile As Long
Dim lngLetzteZeile As Long
Set wks = ThisWorkbook.Sheets("Tabelle")
lngLetzteZeile = wks .Cells(Rows.Count, 2).End(xlUp).Row
For lngZeile = lngLetzteZeile To 2 Step -1
If wks.Cells(lngZeile, 2).Text Like "ausgegl. Konten" Or _
wks.Cells(lngZeile, 2).Text Like "ausgegl. Konto" Or _
wks.Cells(lngZeile, 1).Text Like "=*" Or _
wks.Cells(lngZeile, 1).Text Like "Konten-Summe:" Or _
wks.Cells(lngZeile, 1).Text Like "Kontokorrent-Konten: " Or _
wks.Cells(lngZeile, 1).Text Like "#NAME?" Or _
wks.Cells(lngZeile, 1).Text Like "*NAME*" Then
wks.Rows(lngZeile).Delete shift:=xlUp
End If
Next lngZeile
End Sub

wks.Cells(lngZeile, 1).Text Like "#NAME?" Or _

= Summe Test