Inserting Value from one cell to another

[Guest]

I have a range of Cells eg A1 to A15 that contain a value, when I select one
of those cells with my mouse I would like that value to be inserted into
another Cell ie B1

Thanks

 

[Tom Ogilvy]

right click on the sheet tab and select view code.

Paste in this code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Row < 16 Then
Range("B1").Value = Target.Value
End If
End Sub


remove any other procedures with the same name.