WorksheetFunction.VLookup doesnt work if result is #N/A

[HerryMarkowitz]

Greetings,
1- Open enclosed file.
2- Run Macro1.

Sub Macro1()
Sheets("Sheet2").Select
For i = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
    j = Application.WorksheetFunction.VLookup(Sheets("Sheet2").Range("A" & i), Sheets("Sheet1").Range("A2:B10"), 2, 0)
    If j Like "#N/A" Then GoTo exit1
    Sheets("Sheet2").Range("B" & i).Value = j
exit1:
Next i
End Sub

3- See that error picture in the following link;
http://i.cubeupload.com/7bc7dw.jpg

Any idea will be appreciated...Thanks in advance...