값이 일치 할 때 셀 선택

아래 코드는 시트 1의 "K2"에 입력 한 값을 찾은 다음 시트 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

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