'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…