automatisk sletning af rækker

prøv denne makro den sletter rækken hvori den finder det søgte

Sub Makro1()
    Søg = InputBox("Skriv søgestrengen på hvad der skal slettes", "Sletning af rækker")
      Columns("A:E").Select 'området den søger på ret det selv til
  Selection.Find(What:=Søg, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
    Rows(ActiveCell.Row).Select
  Selection.Delete Shift:=xlUp

End Sub

Finder den alle linier med f.eks ordet "Holding", eller skal jeg køre makroen flere gange til den ikke finder flere?

On Error GoTo Slut
    Søg = InputBox("Skriv søgestrengen på hvad der skal slettes", "Sletning af rækker")
      Columns("A:E").Select 'området den søger på ret det selv til
  Selection.Find(What:=Søg, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
        a = ActiveCell.Row
        b = ActiveCell.Column
    Rows(ActiveCell.Row).Select
  Selection.Delete Shift:=xlUp
  Cells(a, b).Activate
  Do
Cells.FindNext(After:=ActiveCell).Activate
    Rows(ActiveCell.Row).Select
  Selection.Delete Shift:=xlUp
Loop
Slut:
End Sub

den første fandt kun den første

men denne her finder alle, men den kikker på delord
så hvis du søger på "holding" finder den også "abb holding"

hvis den kun skal søge på hele cellen skal du bruge  nedenstående linie

Cells.Find(What:=Søg, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        ).Activate

Selection.Find(What:=Søg, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        ).Activate

en rettelse

skulle der søges på hele ordet eller kun en del af ordet ?.

Men tak for pointz ;o)

Kun på dele af ordet - og tak for hjælpen :)