How about a DOUBLE click. Right click on the sheet tabview codecopy/paste
this

Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
With Range("a3")
If Target.Address < .Address Then .Value = Target
End With
Application.EnableEvents =

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Amnon Wilensky" wrote in message
...
Hi,
Is it possible to pass data from any cell on the spreadsheet by clicking
on it, to a predetermined fix cell?

Thanks,

Amnon