makro der finder bestemt tekst og sletter pågælde række

Denne er ikke elegant men den virker :

Sub slet_rakker()
On Error GoTo slut:
Dim tekst As String
tekst = "timeout"  ' Ret selv tekst
Do
    Columns("D:D").Select  ' udvid selv område
    Selection.Find(What:=tekst, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
   
    ActiveCell.EntireRow.Delete
Loop Until ActiveCell = ""
slut:
Range("a1").Select
End Sub

Yes..........det virker.. danke

smider du et svar

Kommer her :-)