Datumszeilen löschen

Sub löschen()
Dim zelle As Range
Dim bereich AS Range
Set bereich = Range("A1:A100")
For Each zelle In bereich
If IsDate(zelle) Then
zelle.EntireRow.delete
End if
Next 'zelle
End Sub

lösche ich Zeilen mit Datum, aber seltsamerweise läuft das Makro nicht vollständig ab und es bleiben immer Zeilen mit Datum übrig. D.h.: ich muß das Makro öfters starten, damit alle Datumszeilen verschwinden.
Weiß jemand, warum das so ist und wie man das verhindern kann?
Gruß
Christian