VBA Fehler

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("F29:I32,F34:I39,F41:I44,F46:I51,F53:I59,F61:I71,F73:I82,F84:I86,F88: _
I107,F108:I108") Is Nothing Then Exit Sub
Cancel = True
Target = IIf(Target = "X", "", "X")
If Target = "X" And (Target.Column = 8 Or Target.Column = 9) Then
MsgBox ("Bitte Bemerkung eintragen")
End If
End Sub

Private Sub Worksheet_Doublick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("F29:I32,F34:I39,F41:I44,F46:I51,F53:I59,F61:I71,F73:I82,F84:I86,F88: _
I107,F108:I108") Is Nothing Then Exit Sub
Target = IIf(Target = "X", "", "X")
Cancel = True
End Sub