Inserting Value from one cell to another
 

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

Inserting Value from one cell to another
 

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