Q:

How to return the value of vlookup in same cell in which the value to be looked up is entered?

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

A:

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

