Okay, after stepping through the code a bit I've established that i
runs all the way down to the bottom. On its way, it sets sAddr a
Customer A.
Code
-------------------
Loop Until rng.Address = sAddr
-------------------
Then, it jumps back to
Code
-------------------
If rng.Offset(0, 1).Value = _
cell.Offset(0, 1).Value Then
rng.Offset(0, -2).Value = 5000
End If
Set rng = rngB.FindNext(rng)
Loop Until rng.Address = sAddr
-------------------
and doesn't change any values on the worksheet, nor does it update it
own variables.
This continues constantly, no matter how many times I step through it
Going to work on it a bit more
--
mazzari
-----------------------------------------------------------------------
mazzarin's Profile:
http://www.excelforum.com/member.php...fo&userid=3218
View this thread:
http://www.excelforum.com/showthread.php?threadid=51931