ダブルクリックで別シートのセルに入力

'sheets.activate：前面に表示されているExcelシート

'sheet1のC5に値をとばす


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'sheet1:セル値のとばす先のシート名
Const DestSH = "sheet1" 
Dim Adr As String
Cancel = True
'<>：～でなければの意味。Adr = Target.Addressになる
If Target.Value <> "" And Not Intersect(ActiveCell, Range("A:A")) Is Nothing Then
Adr = Target.Address

Worksheets(DestSH).Range("C5").Value = Target.Value
End If