Как выделить всю строку и выделите ее, если соответствует значение?

Question

У меня есть лист 1 с диапазоном имен.У меня есть поле ввода сообщения, где я могу просто щелкнуть ячейку, ссылающуюся на значение.Если он совпадает, он находит, где это значение находится в столбце C листа 2. Это работает так, как я хочу, но мне нужно выяснить, как выделить строку whole .Кроме того, есть ли прокрутка для индексации, которую я могу сделать, чтобы убедиться, что она перемещается вниз на лист 2 туда, где была выделена эта строка?

Код:

Sub tgr()
Dim rFound As Range
Dim lemployee As String
Dim sh As Worksheet
Dim rw As Long
Dim matched As Boolean

lemployee = Application.InputBox("Please selct an employee", "Employee Name", Type:=2)

If lemployee = "False" Then Exit Sub
Set sh = Sheets("Sheet1")
rw = 2

With ThisWorkbook.Worksheets("Sheet2").Columns("C")
    Set rFound = .Find(lemployee, .Cells(.Cells.Count), xlValues, xlWhole)
            If ThisWorkbook.Worksheets("Sheet2").Cells(rFound.Row, 3).Value = lemployee Then
                .Cells(rFound.Row).Interior.Color = VBA.RGB(255, 255, 0)
            End If




End With



End Sub

РЕДАКТИРОВАТЬ: Что касается прокрутки,Мне просто нужно что-то вроде:

Application. Goto ActiveCell.EntireRow,True

Answer 1

Примерно так:

With ThisWorkbook.Worksheets("Sheet2").Columns("C")
    Set rFound = .Find(lemployee, .Cells(.Cells.Count), xlValues, xlWhole)
    If Not rFound Is Nothing Then
        rFound.EntireRow.Interior.Color = VBA.RGB(255, 255, 0)
        Application.Goto rFound
    End If
End With