This worked for the Range D5:D25 for me.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVa
_
Target As Range, Cancel As Boolean)
' if Column = 4 i.e. "D" & Row is between 5 and 25
If Target.Column = 4 And Target.Row 4 And Target.Row < 26 Then
Target.Value = Format(Now(), "mm-dd-yyyy")
Target.Offset(0, 1).Select
End If
End Su

--
Peter8
-----------------------------------------------------------------------
Peter81's Profile: http://www.excelforum.com/member.php...fo&userid=2535
View this thread: http://www.excelforum.com/showthread.php?threadid=46781