Cell Find And Row Color

I'm trying to search a column for the first occurence of a given text string, get the cell's row (that's the hardest part for me), and color that row.

I've tried using the macro builder, but I can seem to get the referencing right and get different error (91, 424, 1004), depending on how I've managed to mangle my code at the time.

Here's the current version of a bit of my

Set rFoundCell = Worksheets("WBS").Range("B1")

Worksheets("WBS").Columns("B:B").Select
Set rFoundCell = Selection.Find(What:="Insert all new lines above this line by insert button" _
, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:= _
xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:= _
False).Activate

' how do I get the found row? or do I need it ??

With rFoundCell
rFoundCell.EntireRow.Font.ColorIndex = 35
End With