In the sheet module, say you want the value to be displayed in cell A1:
'----------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Range("A1")
.Value = ActiveCell.Value
.NumberFormat = ActiveCell.NumberFormat
End With
End Sub
'---------------------------------------------------
--
Regards,
Sébastien
<http://www.ondemandanalysis.com


"Misssy" wrote:

Is there a way I can show in one cell the value of whatever cell is selected?