Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel A
Boolean)
Select Case Target.Column
Case 1, 11
If Target.Cells 0 Then
MsgBox "This cell contains a date, choose another cell", vbCritical
Target.Offset(0, 1).Select
Else
Target.Value = Format(Now(), "mm-dd-yyyy")
Target.Offset(0, 1).Select
End If
End Su

--
Message posted from http://www.ExcelForum.com