Deadlock

ich habe ein kleines Problem. Und zwar hängt sich der nachfolgende Code beim Löschen von Leerzeilen auf. Das stringabhängige Löschen funktioniert.

Sub begriffe_loeschen_michael()
Dim reihe As Integer

For reihe = 1 To 10
If IsEmpty(Cells(reihe, 1)) Then
Rows(reihe).Delete
reihe = reihe - 1
End If

If Cells(reihe, 1).Value Like "*michael*" Then
Rows(reihe).Delete
reihe = reihe - 1
End If
Next reihe
End Sub

Jemand eine Idee?

Cu