Check variance code not working

[goss]

Hi ng.
Using xl 2003.

I have sheet that uses vlookups and formulas to determin variance
between 2 sets of data for a given list of accounts

Accounts fluctuate and start at O2 going down
As go down list, new account should update to M2
C2:C21 are linked to $M$2 to get account number to perform lookups

Not working:
The account number is not updating in Col C Probably not updating at M
either
For all I know loop is next executing casuing cell reference to go dow
list
'til 0 val found.

Appreciate any help
TIA goss

my code:

Sub Check_Next()

Dim i As Double
Dim x As Integer

Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("Accnt_Compare").Activate
Range("O2").Activate

x = 0
i = 0
i = ActiveCell.Value

Do While i <> 0
If ActiveCell.Value = 0 Then
Exit Sub
Else
If Val(Cells(23, 8)) > 19.99 Then
Call Print_Job
Else
x = x + 1
Range("O2").Activate
ActiveCell.Offset(x, 0).Select
i = ActiveCell.Value
Cells(2, 12) = ActiveCell.Value
Application.Calculate
End If
End If
Loop
Application.ScreenUpdating = True

End Su

 

[Tom Ogilvy]

Sub Check_Next()

Dim i As Double
Dim x As Integer
Dim rng as Range
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("Accnt_Compare").Activate
Range("O2").Activate
set rng = Range("O2")
x = 0
i = 0
i = ActiveCell.Value

Do While i <> 0
If rng.Value = 0 Then
Exit Sub
Else
If Val(Cells(23, 8)) > 19.99 Then
Call Print_Job
Else
x = x + 1
set rng = Range("O2").Offset(x,0)
i = rng.Value
Cells(rng.row, 12) = i
Application.Calculate
End If
End If
Loop
Application.ScreenUpdating = True

End Sub