For i = 3 To 500
pno = Cells(i, 4).Value 'source list
On Error Resume Next
Range(Cells(3, 1), Cells(100, 1)).Select 'target list
satbul = Selection.Find(What:=pno, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=True).Row
Cells(satbul, 2).Value = i
Next i

Before above rows was working properly. Now when an item doesn't find,
doesn't work.


Error number : '91' Object variable oe With block variable not set



What's problem.

Everybody thanks...