Neato

Can't say I understand but it works and is more compact.


Gord

On Thu, 16 Oct 2008 14:27:40 -0400, "Rick Rothstein"
wrote:

Not sure if this would be considered more cryptic or not, but it is a little
more compact...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
If Not Intersect(Target, Me.Range("B6:C12")) Is Nothing Then
Target.Value = Choose(Target.Column - 1, Date, Time)
End If
Cancel = True
End Sub