※ ChatGPTを利用し、要約された質問です（原文：値の入ってるセルを選ぶと終了するVBA教えて頂けませんか？）
VBAで値が入っているセルを選んだ場合のエラー処理
このQ&Aのポイント
VBAを使用して、特定のセルに値が入っている場合にエラーを表示する方法を教えてください。
現在、特定のセルにダブルクリックすると、別のシートに移動するVBAコードを使用しています。しかし、すでに値が入っているセルを選んだ場合に、エラーメッセージを表示するようにしたいです。
具体的には、「同じ箇所に二回入れてませんか？」というメッセージを表示するようにしたいです。可能であれば、そのコードも教えていただけると幸いです。
値の入ってるセルを選ぶと終了するVBA教えて頂けませんか？
「 初期入力! B列 」に、値を入れる為、「Data!」に移動して
値を選んで、「 初期入力! B列 」に貼り付けする、ＶＢＡを入れております。
（現在の作業内容）
現在「 初期入力! 」にいてます。
(1) 「 初期入力! B列 」をダブルクリック。
(2) 「 Data! 」に移動。
(3) 「 Data! 」で値を選んで、「 初期入力! B列 」をダブルクリックした
セルに貼り付け。
以上が作業内容です。
（行いたい作業）
始めに「 初期入力! B列 」をダブルクリックするのですが、
すでに値が入っているセルを選ぶと、「 Data! 」に移動する作業を中止し、MsgBoxで" 同じ箇所に二回入れてませんか？"と
エラー出すようにしたいです。
こういう事は、可能ですか？
お分かりになられる方、おられましたら教えて頂けませんか？
（現在のＶＢＡです）
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column <> 2 Then Exit Sub
'ドロップダウン代わりにDataを表示
Sheets("Data").Activate
End Sub
よろしくお願いします。
お礼
tarinko_06さん、回答ありがとうございます。 私のやりたい事が出来ました～！ 感謝しております。 今後共、よろしくお願いします。 ありがとうございました。