Check variance code not working

[goss]

Thanks Tom
Unfortunatley still not working

Seems like 2 issues:

1. Loop should stop when empty cell found in col O
Currently I have row 2 6011.001
row 3 6011.002

That is all the test data so should terminate after 2 iterations
It does not.

2. $M$12 is not updating
First iteration should = 6011.001
Second should = 6011.002

However the printouts still have the beginning account
number of 6410.0120

TIA
-gos

 

[Tom Ogilvy]

Sub Check_Next()
with worksheets("Accnt_Compare")
set rng = .Range(.Cells(2,"O"),.Cells(rows.count,"O").end(xlup)
for each cell in rng
.Range("M12").Value = cell.Value ' M12 or M2?
Application.Calculate
If Val(.Cells(23, 8)) > 19.99 Then
Call Print_Job
End if
Next
end with
end Sub