Hi!

Try this in the code page behind your worksheet (I've called it
Sheet1):

Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("Sheet1")
.Range("A2") = "=" & .Range("A1")
End With
End Sub

Each time you change A1, its calculated value will appear in A2.


Alf


--
AlfD
------------------------------------------------------------------------
AlfD's Profile: http://www.excelforum.com/member.php...fo&userid=4785
View this thread: http://www.excelforum.com/showthread...hreadid=468361