FIND returns previous data

[ChuckDrago]

This code (partial) was written to interrogate a database. Cell "A2" of another tab contains a Part Number to be sought.

Target = Range("A2")
Sheets("Kanban Data").Select
Dim Nrow As Range
Dim N As Integer
On Error Resume Next
With Sheets("Kanban Data")
Set Nrow = .Columns(2).Find(What:=Target, After:=.Cells(3, 2), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

If the Find expression (as pulled down from the Edit menu) is empty, then inserting a Part Number in A2 and executing the macro finds the correct record and returns the its correct row number (N, as defined afterwards in the code). Then, changing the Part Number in cell A2 and executing a new search returns the SAME row as the previous search, despite Target being equal to the new sought after value. Where am I wrong?
Thanks.

 

[RoryA]

And it's definitely in column B? You mention part numbers - is one a number and the other being stored as text?

 

[RoryA]

Oh, and your last bit should presumably be:

N = Nrow.Row
Part = Nrow.Offset(0, 0)
Desc = Nrow.Offset(0, 1)
Ware = Nrow.Offset(0, 2)
Loc = Nrow.Offset(0, 3)