Place in A1 the Value generated by a formula in B1. A1 can not contain a
formula.
B1 may, or may not, display its formula result.

Place this code into the code for the sheet you want. Right click on the tab
and choose view code..

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Range("A1").Value = ActiveSheet.Range("B1").Value
End Sub

HTH

"Trebor Retrac" wrote:

Place in A1 the Value generated by a formula in B1. A1 can not contain a
formula.
B1 may, or may not, display its formula result.

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

"Jim Thomlinson" wrote:

Place this code into the code for the sheet you want. Right click on the tab
and choose view code..

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Range("A1").Value = ActiveSheet.Range("B1").Value
End Sub

HTH

"Trebor Retrac" wrote:

Place in A1 the Value generated by a formula in B1. A1 can not contain a
formula.
B1 may, or may not, display its formula result.