こんにちは。 > 「実行時エラー13　型が一致しません」というものが出て，デバックというところをクリックすると，If Target.Value = "" Thenのところが黄色くなり矢印が出ていたのでここが問題 問題点の切り分けとしては、正しいです。 原因としては、 　Targetが単一セルではない →Target.Valueが配列になる →配列値をイコール演算することによって →「実行時エラー13　型が一致しません」が返る といった状態が考えられます。 以下、対策として。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Const rng As String = "A1:B3" '処理対象のセル範囲 　　' ' 処理対象のセル範囲に掛からない範囲であれば、処理を抜ける 　　If Application.Intersect(Target, Range(rng)) Is Nothing Then Exit Sub 　　Cancel = True　'　ダブルクリックによる[入力（編集）モード]移行をキャンセル 　　With Target(1)　'　ダブルクリックが結合セルである場合に備えて先頭セルだけを対象にする。 　　　　If IsEmpty(.Value) Then　'　セルの値が空ならば、 　　　　　　.Value = "○"　'　セルの値を"○"にする。 　　　　Else　'　セルの値が空でなければ、 　　　　　　.Value = Empty　'　セルの値を空にする。 　　　　End If 　　End With End Sub