Mark, thanks for looking at it. I think that the following is, in part to
blame, but I'm guessing that it's interacting with something else which I
can't seem to track down, because I experienced the same symptoms when
writing a routine to transfer some other data related to the same problem
range to a second worksheet.

strDay = " (" & ActiveCell.Offset(-1, -4).Value & ")"
Sheets(1).Range("B26").Value = Sheets(1).Range("B26").Value _
& strDay & " Worked."

If you can solve this, you'll be a life saver. Thanks

Regards
Tom Barclay

Mark Rosenkrantz wrote:
TB;

I see what you mean, but have to take some time to discover the
problem.

Mark Rosenkrantz.

More Excel ? www.rosenkrantz.nl or

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

"TB" wrote in message
...
I've been trying to get help with this problem for a couple of weeks
now, but no one so far appears to see any problem with the output in
cell B26. Could someone PLEASE paste the following code into a
worksheet module and run the code as follows to get an example of my
problem:

in column A10 thru A16, enter sun thru sat (see diagram)
in column B10 thru B16, enter 8 in each cell (see diagram)
make cell B26 large (with wordwrap)

A B C D E
10 sun 8
11 mon 8
12 tue 8
13 wed 8
14 thu 8
15 fri 8
16 sat 8

When everything is ready, enter an 8 in cell E10, another in E11,
another in E12, etc. You'll see that the first 8 produces a single
"sun" output in B26 (this is what I want for each 8 entered in E
column). The second 8 adds two "mon" outputs, a third 8 adds three
"tue" outputs, etc. I need to know why it's doing this, and how the
code below can be changed to cause each 8 entered in column E to add
a SINGLE output to the text already present in B26. Please help.

<snipped for brevity