On Jan 29, 1:52*am, "Bob Phillips" wrote:
* * * * With Sheets("FTP")
* * * * * * .Cells(i, 3).Resize(, x).Value = 8
* * * * * * .Cells(i, 3 + x) = estimate - (8 * x)
* * * * End With

Wow! If you wouldn't mind doing a little tutorial, can you explain
this usage of the Resize method. When I look at Help, it looks
nothing like what you have here. (I have Office Excel 2003 with VB
6.3.)

Of course, I can infer from the OP's example what your solution "must"
do. I 'spose Cells(i,3).Resize(,x) specifies a list object.

But I don't know anything about list objects. I don't recall reading
it in Walkenbach's book. That doesn't mean it's not there; it simply
means I have no memory of it. And as usual, his index is so poor that
I cannot find a pointer to a discussion, if it exists.

A pointer to a good discussion of list objects would be helpful.