Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Cancel = True
'With Target
' If Target.Column = 2 Then
' Cells(Target.Row, 2) = Date
' Cancel = True
' End If
'End With
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Cells(Target.Row, 1).Interior.ColorIndex = 6
Cells(Target.Row, 2) = Date
End If
If Not Intersect(Target, Range("C:C")) Is Nothing Then
Cells(Target.Row, 1).Interior.ColorIndex = 4
Cells(Target.Row, 3) = Date
End If
End Sub