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

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.

--
Regards,
Tom Ogilvy

"Nigel" wrote in message
...
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