Fehler in Code

Sub test()
Dim LetzteZeile As Long         'benötigt für Kategorien alle Zeilen mit neuer Kontonummer  _
löschen
Dim i As Long                   'benötigt für Kategorien alle Zeilen mit neuer Kontonummer  _
löschen
Dim s As String                 'benötigt für Kategorien alle Zeilen mit neuer Kontonummer  _
löschen
Dim strBegriff As String        'benötigt für Kategorien alle Zeilen mit neuer Kontonummer  _
löschen
'Anfang Kategorien alle Zeilen mit neuer Kontonummer löschen
'    strBegriff = TextBox10.Value
strBegriff = "9999999999"
Worksheets("Kategorien").Activate
LetzteZeile = Worksheets("Kategorien").Cells(Cells.Rows.Count, 5).End(xlUp).Row
For i = 2 To LetzteZeile     'suchen ab 2. Zeile bis letzte beschriebene
With Worksheets("Kategorien")
If Worksheets("Kategorien").Range("E" & i).Value = strBegriff Then
s = s & "B" & i & ":F" & i & ","
End If
End With
Next
Selection.ClearContents
'Ende Kategorien alle Zeilen mit neuer Kontonummer löschen
End Sub