I assume you want the cell 1 row down and 1 row to the right of the double
clicked cell, right? If not just adjust the .Offset numbers.

Hope this helps! If so, let me know, click "YES" below.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

Cancel = True

Range("A1").Value = Target.Value
Range("A2").Value = Target.Offset(1, 1).Value

End Sub
--
Cheers,
Ryan


"Ronbo" wrote:

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