Try either of these.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
With ActiveCell
.Copy Range("A1")
.Offset(1, 1).Copy Range("A2")
End With
End Sub

or

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
ActiveCell.Copy Range("A1")
ActiveCell.Offset(1, 1).Copy Range("A2")
End Sub

HTH
Regards,
Howard

"Ronbo" wrote in message
...
I would like to put a routine on the worksheet tab using
"BeforeDoubleClick"
that would put the contents of the cell clicked on in A1 and the contents
of
the cell (OFFSET 1,1) in cell A2.

Thanks,

Ronbo