Macro que no elimina las pagadas

Un saludo a todos:

Encontre esta macro en la web (no recuerdo en donde fue) y la adapte para
que elimine las pagadas, pero he observado que no elimina todas las pagadas
va dejando una filas con pagadas y la tengo que correr varias veces para que
elimine todas, y no he encontrado donde puede estar el error de por que no
elimina todas las pagadas.
Esta es la macro:
Sub DelePagada()
Application.ScreenUpdating = False
For fila = 5 To 7500
If Cells(fila, 15).Value = "PAGADA" Then
Rows(fila).Delete
End If
Next fila
Range("O4").Select
Application.ScreenUpdating = True
End Sub

Agradezco de antemano sus comentarios