Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 6 Then
If Target.Font.Color = RGB(0, 0, 0) Then Target.Font.Color = RGB(255, 0, 0) Else Target.Font.Color = RGB(0, 0, 0)
End If
If Target.Column = 5 Then
Target = "X"
Target.Offset(0, 1) = Date
Target.Offset(0, 1).Select
End If
Cancel = True
End Sub