Hallo, benötige leider ein wenig Unterstützung.

Ich möchte gerne in einer Excel-Tabelle alle Zeilen löschen, in denen in Spalte A der Wert "Löschen" steht.
Sollte ja grundsätzlich nicht das Problem sein - dachte ich ...

Habe das wie folgt gelöst - Problem ist aber, dass er nur bis zu 5 Zeilen löscht und den Rest eben nicht. Woran kann das liegen ?

Sub Zeileloeschen()
Dim cell As Range
For Each cell In Range("A:A")
If cell.Value = "*Löschen*" Then
cell.EntireRow.Delete
Range("A4").Select
End If
Next cell
End Sub

...und hier die Exceldatei, um die es geht: