Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Columns("B:B")) Is Nothing Then
If ActiveCell.Offset(0, -1).Interior.Color = vbGreen Then
ActiveCell.Offset(0, -1).Interior.Color = xlNone
End If
End If
Cancel = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns("B:B")) Is Nothing Then
ActiveCell.Offset(0, 1) = Date
ActiveCell.Offset(0, -1).Interior.Color = vbGreen
End If
End Sub