Hi

This event code is to be inserted into the code sheet for the desired sheet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address < "$A$1" Then
Application.EnableEvents = False
Range("A1") = Target.Value
Application.EnableEvents = True
End If
End Sub

Regards,
Per

"Roger on Excel" skrev i
meddelelsen ...
(Excel 2003)
I need for one particular cell to equal the contents of the cell the
curser
has selected.

For example the cell to show the result (A1) would automatically show the
contents of whichever cell is selected by the user when they click on a
particular cell.

Sounds odd I know, but there is method to my madness..

Can anyone help?

Thanks,

Roger