Private Sub Worksheet_Change(ByVal T As Range)
If Not Intersect(T, [b:x]) Is Nothing And T.Count = 1 Then
Set a = [a:a].Find(What:=T, LookIn:=xlValues, LookAt:=xlWhole)
If Not a Is Nothing Then
Application.EnableEvents = 0
Cells(a.Row, T.Column) = T: T = ""
Application.EnableEvents = 1
End If: End If
End Sub