That gave me an idea. Use this for no selections. WORKS!

Sub testdFINAL()
For i = 0 To 3 Step 1
ActiveCell.Offset(i, 0) = i / 10
Next i
End Sub

--
Don Guillett
SalesAid Software

"A.W.J. Ales" wrote in message
...
I don't know what exactly is wrong with it, but i suppose that where 0,1
is
added actually you don't reach 0,3 (or 0,6) but something like o,300000001
and thus 0,3

Problem can be solved by changing the code to

Sub test()
For i = 0 To 3 Step 1
ActiveCell.Offset(1, 0).Activate
ActiveCell = i /10
Next i
End Sub


--
Regards,
Auk Ales

* Please reply to this newsgroup only *
* I will not react on unsolicited e-mails *

"Young-Hwan Choi" wrote in message
...
When I run the code below, it writes 0, 0.1, and 0.2. It doesn't write
the
last one, 0.3.
If I change 0.3 to 0.6, it writes 0 to 0.5, not 0.6.
What's wrong with it?
(I recall someone said about dim, or something regarding this... but, I
don't know ...)

Sub test()
For i = 0 To 0.3 Step 0.1
ActiveCell.Offset(1, 0).Activate
ActiveCell = i
Next i
End Sub

thanks