エクセル VBA実行セルの限定

Question

セルをダブルクリックすると、A列に〇が付くようにコードを作成しています。
現在のコードは次のとおりです。

Dim rngTarget As Range
Dim rngFind As Range
Dim Trow As Long
    If Target.Count > 1 Then Exit Sub  '複数セル選択禁止？
    Trow = Target.Row
    If Cells(Trow, 1).Value = "" Then
        Cells(Trow, 1).Value = "〇"
    Else
        Cells(Trow, 1).Value = ""
    End If

    MaxRow = Cells(Rows.Count, 2).End(xlUp).Row
    For Trow = 2 To MaxRow
         '=IF(A3="〇","〇",IF(L3>0,IF(INDEX($A:$A,MATCH(L3,$B:$B))="〇","〇"," ")," "))
         Cells(Trow, 13).Formula = "=IF(RC[-12]=""〇"",""〇"",IF(RC[-1]>0,IF(INDEX(C1:C1,MATCH(RC[-1],C2:C2))=""〇"",""〇"","" ""),"" ""))"
    Next
End Sub

現在のコードでは、どのセルをクリックしても〇がついてしまうので、クリック可能なセル範囲を限定したいのですが、うまくいきません。
B2:L301の範囲のみ動くように修正したいです。
お力お貸しください。
よろしくお願いします。

Answer 1

Intersectメソッドを使うとよいでしょう。

～
    If Target.Count > 1 Then Exit Sub  '複数セル選択禁止？
    If Intersect(Target, Range("B2:L301")) Is Nothing Then Exit Sub
～

Comments

[ttyp03]

あ、コード貼るときはきちんと関数名から入れてくださいね。
ダブルクリックイベントのつもりで回答しています。

[Mkasai]

ありがとうございました。希望通りの動きになりました。

Answer 2

・Excel VBA：ダブルクリックされたセル位置を取得する　の記事に書かれた方法で、クリックされたセル位置を取得し、
・それがB2:L301の範囲内であればA列のセルに"〇"を入れ、
・範囲外であれば何もしない、
というコードを書けば良いのではないでしょうか。