Выделение строки

[V@lentin]

Здравствуйте!
Имеется макрос для поиска ячейки в таблице.
Подскажите как выделить ту строку, в которой активна найденая ячейка?
Вот мой макрос:

Sub ПОИСК()
Dim strFindData As String
Dim rgFound As Range
strFindData = InputBox("Введите данные для поиска", "ПОИСК КЛИЕНТА")
With Worksheets("Inv_fiz").Cells
Set rgFound = .Find(strFindData, LookIn:=xlValues)
If Not rgFound Is Nothing Then
rgFound.Select 'выделение ячейки, нужно выделить всю строку
Exit Sub
End If
End With
MsgBox ("Поиск не дал результатов")
End Sub

[EducatedFool]

Sub ПОИСК()
    On Error Resume Next: Err.Clear
    strFindData$ = InputBox("Введите данные для поиска", "ПОИСК КЛИЕНТА")
    If Len(strFindData$) Then Worksheets("Inv_fiz").UsedRange.Find(strFindData, , xlValues).EntireRow.Select
    If Err Then MsgBox "Поиск не дал результатов", vbInformation
End Sub

[V@lentin]

Благодарю! То что надо.