如何在输入要查找的值的同一单元格中返回vlookup的值？

Question

I want to return the result of vlookup in the same cell in which the value to be looked up is entered . Figure 1 shows the value which is to be looked up

Figure 1

I want the value in A1 to change to vlookup value of t001 when I press enter as shown in figure 2

Figure 2

the lookup table is present in sheet2 t001 trew t002 rty

Following code I have written but it is not working; kindly help me in this regard

Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A114")) Is Nothing Then
    If WorksheetFunction.IsNumber(Target.Value) Then
        Application.EnableEvents = False
        Table2 = Sheet2.Range("C2:D3")
        Target.Value = Application.WorksheetFunction.VLookup(Target.Value, Table2, 2, False)
        Application.EnableEvents = True
    End If
End If
End Sub

Answer 1

By using

If WorksheetFunction.IsNumber(Target.Value) Then
...
End If

You are making sure that the interior of the 'if' clause will not be executed if the target value is not a number. For example having Table2

abc ¦ not working
-----------------
123 ¦  working

after typing 'abc' nothing happens and after typing 123 the number disappears and 'working' appears