Slet rækker, hvis tekst i felt er lig bestemt tekst

Jeg vil slette hele rækker, hvis tekst i en kolonne har en bestemt værdi.

Dette kan jeg ikke få til at lykkes.

Det kan være fordi, at dataene er fra et andet system, og dermed ikke formateret 'korrekt'. Har nogen gode ideer?

Jeg har brugt følgende vba-kode:

Sub Sletrækker1()
    Sheets("Ark").Select
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    tid = Now()
    With Range("A1:A999")
    rCount = .Rows.Count
    For r = rCount To 1 Step -1
        If .Cells(r, 1) = "Ialt afregnet:" Then
            .Rows(r).EntireRow.Delete
        End If
    Next r
    End With
    Debug.Print Format(Now - tid, "s") & " sekunder"
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

På forhånd tak for hjælpen.