I thought about the select case function but couldn't construct it and make
it work. I also couldn't get the "If, then, else" statement to work, that's
why I used the 'goto'.
It works geat!
Thanks!

Bob Howard


"mudraker " wrote in message
...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
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 Sub


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