ダブルクリックイベントで良いのかどうか？

お世話になります。
ダブルクリックイベントで、そのセルを赤く色を塗り、尚且つ、
そのセルをダブルクリックした事により、別のワークブックを開き、
また、開いたワークブックのシートの中からある単語を検索して
その属性を現在アクティブにしている、ブックのシートに記入しよう
としていますが、
まず、下記の様に、ダブルクリックイベントで、セルを赤く塗るまではうまくいったのですが、別のブックを開く事がうまく出来ません。
記述が悪いのか、または標準モジュールに記述するべきなのか分からなく困っています。
どなたかご教授頂きたく宜しくお願い申し上げます。

　　　　　　　記

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Rng As Range, myRng As Range
Set Rng = Range("c2:d2,f2")
Set myRng = Intersect(Target, Rng)
If myRng Is Nothing Then Exit Sub
Rng.Interior.ColorIndex = xlColorIndexNone
myRng.Interior.ColorIndex = 3
Cancel = True

If Intersect(Target, Range("c2")) Then
Workbooks.Open Filename:="C:\Documents and Settings\Owner\デスクトップ\台帳.xls"

End If



End Sub

No.1 ベストアンサー 回答者： n-jun 回答日時： 2008/08/16 21:46

If Intersect(Target, Range("c2")) Then

ここを
If Not Intersect(Target, Range("c2")) Is Nothing Then
だとどうでしょう？

この回答へのお礼

早めの回答ありがとうございます。
大変参考になりました。

お礼日時：2008/08/16 23:12