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
Bookmarks