Check variance code not working

[goss]

Hi ng
Using xl 2003

Some code below Tom Ogilvy is helping me with
The third line is red when I paste into VBE
The .Range... does seem strange to me, but I'm no expert

Can anyone point out what may be causing the error?
compile error
expected list separator or )

TIA
-goss



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

 

[K Dales]

The code itself seems OK, I think it is just a typo. You
are misssing a closing ")" somewhere. If you count
the "("s you will see you have one more than the ")"s.

I think this is what you want:

set rng = .Range(.Cells(2,"O"),.Cells(rows.count,"O")).end
(xlup)

 

[Tom Ogilvy]

Actually it should be;

set rng = .Range(.Cells(2,"O"),.Cells(rows.count,"O").end(xlup))