zeilen suchen u. markieren

ich habe eine Bitte, vielleicht ist jemand so nett und hilft mir. Ich will in einer großen Excel Tabelle nach Begriffen suchen, und überall wo dieser Begriff vorkommt, soll die ganze Zeile farbig markiert werden.
Danke,

Uwe

Sub Suchen_und_färben() Application.ScreenUpdating = False Range("A1").Select begriff = InputBox("Suchbegriff eingeben") Cells.Find(What:=begriff, After:=ActiveCell, LookIn:=xlValues, LookAt:= _         xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate ActiveCell.EntireRow.Interior.ColorIndex = 3 z = ActiveCell.Row x = z Do     Cells.FindNext(After:=ActiveCell).Activate     ActiveCell.EntireRow.Interior.ColorIndex = 3     z = ActiveCell.Row     If z >= x Then         x = z     Else         Exit Sub     End If Loop Application.ScreenUpdating = True End Sub