Paste both of these macros into the sheet module of your sheet. To access
that module, right-click on the sheet tab, select View Code, "X" out of the
module to return to your sheet. HTH Otto
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Range("A1").Value = Target.Value
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = Target.Value
End Sub

wrote in message
oups.com...
Hello

Is it possible to have a cell in a worksheet to display all contents of
whichever cell has focus?

Thanks