(Win xp - Excel 2003)


Hi all,

This code (on my machine) runs correctly until the variable myFigure
reaches 1.13 then just loops as if there is no cell value with 1.13.

It also does it at 1.38 if you start with the variable myFigure at more
than 1.13. Also at 1.63 if you start at 1.39.

This is confusing the hell out of me.

Can anyone shed light on this for me.

tia

Ron



Sub FirstRun()

Dim x As Integer
Dim myFigure As Double 'also tried just Dim myFigure
' Application.ScreenUpdating = False

myFigure = 1.05



Range("i3").Select

For x = 0 To 36

ActiveCell.Value = myFigure


Range("i2").Select

Do Until ActiveCell.Value = myFigure
ActiveCell.Offset(1, 0).Select
Loop

ActiveCell.Offset(0, 1).Value = "Line " & x
ActiveCell.Offset(1, 0).Select

myFigure = myFigure + 0.01

Next
End Sub