删除包含特定字符串的单元格所在的行 [

大神们好，小弟想给附件里EXCEL里，有PPN字符串的行做删除，但我自己搞了以下代码，运行一次能删一部分，但删不完全，还要重复运行2次才删干净，不知为何，请明示。谢谢

Sub 删除ppn()
Dim cll As Range

    For Each cll In Range("F1:F40000")
            If InStr(cll, "PPN") Then
            cll.EntireRow.Delete
            End If
    Next
End Sub