Ayuda con buscarv

Hola a todos.

Tengo la siguiente macro que me busca un número en un archivo y me
dice si existe o no existe:

Dim nom As String
Dim c As Long
Dim r As Range

c = Val(InputBox("Digite el número de cédula", "Cédula"))
Set r = Worksheets("1").Range("a1:a3436")
On Error Resume Next

nom = Application.WorksheetFunction.VLookup(c, r, 2, 0)
If Err.Number = 0 Then
MsgBox "el empleado existe"

Else
MsgBox "el empleado no existe"
Err.Clear
End If
On Error GoTo 0

End Sub

Pero no se que hago para que me active la celda donde encuentra el
número.

De antemano gracias a todos.

Boris Marx