Thanks Jim:
The routine worked to transfer the value.
However, once started , the routine appears to not stop after the first
ececution.
I have to use the escape key to break the routine and then end it.
Ther must be some way to make the routine execute only once for each change
of value in "B1".
I am not familiar with Visual Basic but am quite familiar with C++.
I modified the cell declarations to array values "A1:C160" and "F1:H160",
which is what I really want to do, and still the got the eternal looping of
the routine.
Thanks
Bob Carter
Douglas, MA