Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Dim fn As Range
If Not Intersect(Target, Range("B2")) Is Nothing Then
Set fn = ActiveSheet.UsedRange.Find(Target.Value, Range("B2"), xlValues)
If Not fn Is Nothing Then
fn.Select
Else
MsgBox "No Matches Found"
End If
End If
End Sub