マクロで二つの構文を繋ぐには

質問

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

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value
End Sub
ThisWorkbook　に上記のマクロに下記のマクロを追加したいのですが、
End Sub の　ところを　End If　End With などに変えたのですがうまくゆきません。
御指導お願いできませんでしょうか。

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

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

宜しくお願いいします。

回答No.1

tamao-chi · ベストアンサー

単純に繋げればよいです。
処理の系統が違うのでどちらもEnd Subで完了させる必要があります。
（自動で区切りが入ります。）

ただ、
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
でなく、
Private Sub WorkBook_sheetBeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
では？

お礼

ありがとうございました。

ご指摘を頂いたのを実行しましたが作動しなくなり元に戻しました。