Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Column = 1 Then Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = xlNone, "4", xlNone)
If Target.Column = 5 Then Cells(Target.Row, 1) = Date
End Sub