エクセルマクロで結合されたセルをダブルクリックで指定文字を入力

単独セルをダブルクリックして「レ」を入力する、
マクロは組めたのですが、
結合されたセルに適用しようとして、エラーではじかれています。
下記のマクロ構文のどこを変えれば、対応できますでしょうか？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim flag As Object
Const adr As String = "W98:W100,W102:W107,AM98:AM100,AM102:AM107,BC98:BC107,BS98:BS107"
Set flag = Application.Intersect(Target, Range(adr))
If flag Is Nothing Then Exit Sub
Cancel = True
If Target.Value = "レ" Then
Target.Value = Clear
Else
Target.Value = "レ"
End If
End Sub

No.1 回答者： ママチャリ 回答日時： 2017/07/07 17:09

手っ取り早く解決するなら、こんな感じです。

Target(1).Value

No.2 回答者： WindFaller 回答日時： 2017/07/07 18:38

こんにちは。

変数のflg は、常識的には、boolean ですね。

If Target.Cells(1).Value = "レ" Then
Target.Cells(1).Value = ""
''または、Target.Cells(1).ClearContents
Else
Target.Cells(1).Value = "レ"
End If
''//

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Rng As Range
　Const ADR As String = "W98:W100,W102:W107,AM98:AM100,AM102:AM107,BC98:BC107,BS98:BS107"
　Cancel = True　'←これを忘れないこと
　Set Rng = Intersect(Target, Range(ADR))
　If Rng Is Nothing Then Exit Sub
　Cancel = True
　If Target.Cells(1).Value = "レ" Then
　　Target.Cells(1).ClearContents
　Else
　　Target.Cells(1).Value = "レ"
　End If
End Sub