Ahh! I see said the Blind man...
[vba]
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
'To add more columns, start copying below this line...
If .Column = 1 Then
If .Interior.ColorIndex = 1 Then
.Interior.ColorIndex = xlNone
Else
.Interior.ColorIndex = 1
End If
ElseIf .Column = 2 Then
If .Interior.ColorIndex = 3 Then
.Interior.ColorIndex = xlNone
Else
.Interior.ColorIndex = 3
End If
'...and paste the new line here.
'Change the .Column reference to the next column and pick a color.
'This will be your entry for Column 5
ElseIf .Column = 5 Then
If .Value = "" Then
.Value = Format(Date, "mmmm.d.yyyy")
Else
.Value = ""
End If
End If
End With
End Sub
[/vba]
All I did was change Column 5. Instead of coloring the Cell, it Adds the date if blank and blanks the cell if it has info in it.