同じシート内にイベントプロシージャが二つある時

質問

いつもお世話になります。
WINDWS7 EXCELL2010 です。

下記の１　２のマクロを同じシート内にイベントプロシージャを二つ挿入したところ、
※１　※２のような現象が起きました。

この現象を解決したくご指導を仰ぎたいです。
宜しくお願いします。

※１　エラー表示
コンパイルエラー:
名前が適切ではありません; Worksheet_BeforeDoubleClick
※２　下記の構文が青色に反転
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

１
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A2:A51")) Is Nothing Then Exit Sub
Cancel = True
Sheets(CStr(Target.Value)).Select
End Sub

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

Set myRange = Intersect(Target, Range("B2:B51"))
If Not myRange Is Nothing Then
Select Case Target.Value
Case ""
Target.Value = "○"
Case Else
Target.ClearContents
End Select
Cancel = True
End If
End Sub

回答No.1

keithin · ベストアンサー

同じイベントを複数並べるのはダメです。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If not Intersect(Target, Range("A2:A51")) Is Nothing Then
’この範囲がＷクリックされた時
　Cancel = True
　Sheets(CStr(Target.Value)).Select

elseif not application.intersect(target, range("B2:B51")) is nothing then
’この範囲がＷクリックされた時
　Cancel = True
　target = iif(target = "", "○", "")
End If
End Sub

＃実際にはtarget.columnで仕分けるのでも十分そうに見えます。

お礼

お礼を申し上げる前に下記の時は大変ご迷惑をおかけしました。

不特定のシートをマクロで削除を
http://oshiete.goo.ne.jp/qa/8813466.html

早速の御指導に有難うございます。
上手くできました。

少しずつ進歩しています。
頑張りますので今後とも暖かく見守っていただけたら幸甚の至りに存じます。