Solved: Highlight entire row when item is found.

[Marcster]

Hello people ,

I'm trying to write a macro which will find something a user inputs
into an Inputbox. Then highlights the entire row.
So far I have this:

[VBA]

Sub FindThenHighlightWholeRow()
'
' Prompts for input, finds it, then highlights whole row.
'

Dim toFind

toFind = Application.InputBox("What to search for:")

If toFind <> "" Then
Cells.Find(What:=toFind, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.EntireRow.Activate
End If

End Sub[/VBA]

Although it highlights the found cell it doesn't highlight
the whole row.

I'm most likley missing something simple...

Thanks ,

Marcster.

[johnske]

[vba]Sub FindThenHighlightWholeRow()
'
' Prompts for input, finds it, then highlights whole row.
'

Dim toFind

toFind = Application.InputBox("What to search for:")

If toFind <> "" Then
Cells.Find(What:=toFind, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).EntireRow.Activate
End If

End Sub[/vba]

[Marcster]

If toFind <> "" Then
Cells.Find(What:=toFind, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).EntireRow.Activate
End If

The last bit .EntireRow.Activate is what I was missing.

Thanks,

Marcster.