質問文の
Private SubWorksheet
は添付図では
Private Sub Worksheet
と、スペースが入っているのでどうもそこではないみたいです。ここは不明ですが、
適用範囲が4,7,10の3行から4,6,8,10,12,14,16,18,20,22 の10行に変わったようなので
If .Row = 4 Or .Row = 7 Or .Row = 10 Then
という条件はまずいです。
次のように「行番号が奇数の時は何もしない」としてみてください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range(\u0026quot;D4:AH23\u0026quot;)) Is Nothing Then Exit Sub
If Target.Row Mod 2 = 1 Then Exit Sub
With Target
If .Interior.ColorIndex = xlNone Then
If .Value = \u0026quot;\u0026quot; Then
.Value = \u0026quot;○\u0026quot;
ElseIf .Value = \u0026quot;○\u0026quot; Then
.Interior.Color = vbRed
Else
.Value = \u0026quot;\u0026quot;
End If
Else
.Value = \u0026quot;\u0026quot;
.Interior.ColorIndex = xlNone
End If
Cancel = True
End With
End Sub