I don't know, Rick, I'm thinking it will start with the bells and whistles
within the first one or two minutes unless the OP has some giga giga bytes
of memory. I have 512 mb and I don't think that would last too long in
xl2003.

"Rick Rothstein" wrote in message
...
That is not a practical request. Consider this... there are 16,777,216
cells on a single worksheet. I don't know how fast they could fill in;
but, for the sake of argument, assume 100 every second (that's a rate you
would have trouble being able to follow cell-by-cell). Since there are
86,400 seconds in a day, it would take a little more than 1.94 DAYS to
watch that one, SINGLE worksheet fill in... and that calculation is
without breaks for bathroom, eating or sleeping! You couldn't possibly
watch an entire workbook of these worksheets fill up until Excel finally
"blew up".

--
Rick (MVP - Excel)


"Louie" wrote in message
...
Thank you guys for your willingness to help out. I know the macro I am
asking for help with is a little different. For what its worth I think
this
is really great and it's very useful to me. However your comments are
very
funny and have been making me laugh very hard. Thank you for the many
chuckles.

I am wondering is there a way to set up this macro so that I can see the
contents being entered in every cell one by one and the columns will
autofit
to the contents from the beginning?


"Jim Cone" wrote:


Ok, but I would like to know the file size. <g
--
Jim Cone
Portland, Oregon USA



"Rick Rothstein"
wrote in message
I definitely don't want to know why the OP wants to do this.<g Given
that,
would it be more efficient (can you imagine I'm asking about efficiency
for
an application like this<vbg) if instead of inserting a sheet and then
populating it like this...

' create new sheets and fill them ad infinitum
' until VBA has a meltdown.
Do Until False ' loop until you run out of memory
With ThisWorkbook.Worksheets
Set WS = .Add(After:=.Item(.Count))
End With
WS.Cells.Value = "I am a winner"
Loop

couldn't we just copy any one of the previously populated worksheets and
put
after any existing sheet? I'm thinking of something like this...

Do Until False ' loop until you run out of memory
With ThisWorkbook.Worksheets(Worksheets.Count)
.Copy After:=ActiveSheet
End With
Loop
By the way, I am *not* willing to test this code.<bg
--
Rick (MVP - Excel)