2 Makro im Tabellenblatt stören sich

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C3:C6")) Is Nothing Then
Me.Unprotect
If Target = "" Then
Target = "X"
Else
Target = ""
End If
Me.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
Cancel = True
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim varCol: varCol = "E"
' Wenn es nur eine best. Spalte sein soll:
' Eine der nachfolgenden Zeilen mit der gewünschten Spalte bestücken und einkommentieren!
' varCol = 6    ' Datum wird nur in Spalte F gesetzt
' varCol = "G"  ' Datum wird nur in Spalte G gesetzt
If Target.Cells.Count = 1 Then
If varCol = "" Then varCol = Target.Column
If Not Intersect(Target, Columns(varCol)) Is Nothing Then
Cancel = True
Target.Value = Date
End If
End If
End Sub