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
<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hello
>
> Is it possible to have a cell in a worksheet to display all contents of
> whichever cell has focus?
>
> Thanks
>
|