値の入ってるセルを選ぶと終了する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

よろしくお願いします。

No.1 ベストアンサー 回答者： tarinko_06 回答日時： 2009/12/03 23:25

If Trim(Target.Value) <> "" then

　Msgbox("同じ箇所に二回入れてませんか？")
　Exit Sub
End If

この回答へのお礼

tarinko_06さん、回答ありがとうございます。

私のやりたい事が出来ました～！
感謝しております。

今後共、よろしくお願いします。
ありがとうございました。

お礼日時：2009/12/04 00:42