This works in Excel 2002, but fails at the second "while" in Excel
2003....


Range("n50").Select
target = -3
j = 12
K = 36
Cells(j, 1).Select
Reading = ActiveCell
Cells(j, 4).Select
ActiveCell.FormulaR1C1 = Reading
Cells(j, 1).Select
While ((target <= -2.5) And (j < 500))

While (((Reading - target) < 0) And (Not (Reading = "")))
j = j + 1
Cells(j, 1).Select
Reading = ActiveCell
Cells(j, 3).Select
ActiveCell.FormulaR1C1 = Reading
Cells(j, 2).Select
CLD = ActiveCell
Cells(j, 1).Select

Wend
Cells(K, 18).Select
ActiveCell.FormulaR1C1 = CLD
K = K + 1
target = target + 1
j = 12
Wend


________________________________________________
TIA,
Crim


--
criminalspeed
------------------------------------------------------------------------
criminalspeed's Profile: http://www.excelforum.com/member.php...o&userid=37909
View this thread: http://www.excelforum.com/showthread...hreadid=574383