I have attempted that, and I just tried it again, and here is the code
just to be su
Code:
--------------------
If Not rng Is Nothing Then
sAddr = rng
Do
If rng.Offset(0, 1).Value = _
cell.Offset(0, 1).Value Then _
cell.Offset(0, -2).Value = 5000
End If
Set rng = rngB.FindNext(rng)
Loop Until rng.Address = sAddr
End If
--------------------
which results in the error:
End If without block If
pointing to line:
Code:
--------------------
cell.Offset(0, -2).Value = 5000
End If <-- *this*
--------------------
--
mazzarin
------------------------------------------------------------------------
mazzarin's Profile:
http://www.excelforum.com/member.php...o&userid=32186
View this thread:
http://www.excelforum.com/showthread...hreadid=519316