---

以下の例のコードは
A6～A20以外には動作しない。
A6～A20以内のセルの場合にマウスでダブルクリックすると
●記号を代入、既存に●が入っているセルには●を外すコードの例。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A6:A20")) Is Nothing = False Then
        If Target.Column <> 1 Then Exit Sub
        Cancel = True
        If Target.Value <> "●" Then
            Target.Value = "●"
        Else
            Target.Value = ""
        End If
    End If
End Sub