Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cells(Target.Row, Target.Column).Value = Now Cells(Target.Row + 1, Target.Column).Select End Sub