Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Range
If Not Intersect(Target, Columns("e")) Is Nothing Then
With Sheets(2).Range("a2:a500")
Set C = .Find(Target.Offset(0, -3) & Space(1) & Target.Offset(0, -2), LookIn:=xlValues)
End With
If Not C Is Nothing Then Target = C
End If
End Sub