Выбор ячейки при совпадении значений

Question

Приведенный ниже код находит любое значение, которое я ввел в "K2" на листе 1, и затем ищет то же значение на листе 2. Я хотел бы, чтобы, когда он находит совпадение, чтобы выбрать эту конкретную ячейку. Может ли кто-нибудь помочь мне с этим?

Sub Macro()
    Dim WS As Worksheet
    Dim rSearchRng As Range
    Dim EndNum As Long
    Dim vFindVar As Variant`

    Set WS = ActiveWorkbook.Worksheets("Sheet2")

    EndNum = WS.Range("A1").End(xlDown).Row

    Set rSearchRng = WS.Range("A1:A" & CStr(EndNum))
    Set vFindVar = rSearchRng.Find(Range("K2").Value)
    If Not vFindVar Is Nothing Then
        MsgBox "Match"
    Else
        MsgBox "No Match Found"
    End If
End Sub

Answer 1

Sub Macro()
Dim WS As Worksheet
Dim rSearchRng As Range
Dim EndNum As Long
Dim vFindVar As Variant`
Dim wsOrig as worksheet

Set wsOrig as activesheet
Set WS = ActiveWorkbook.Worksheets("Sheet2")

EndNum = WS.Range("A1").End(xlDown).Row

Set rSearchRng = WS.Range("A1:A" & CStr(EndNum))
Set vFindVar = rSearchRng.Find(wsOrig.Range("K2").Value)
If Not vFindVar Is Nothing Then
    'to select a cell the sheet must be active
    WS.Activate
    vFindVar.Select
Else
    MsgBox "No Match Found"
End If

End Sub