Hello Tif!

Ther is probable an issue with your code. I used the following code on
my machine and it worked fine. I am running Office 2000 on Windows XP.
Try this code out on your end and see if you still have the same
problem.


Code:
--------------------
Sub Test()

Dim I, S

For I = 1 To 1000
S = Str(I) & S
Next I

Range("A1").Value = S

End Sub


--------------------


Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=478008