'Please, Tell me this problems How to solve 'One cLick on cell at a time appeared date only Specific column and rows Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ActiveCell.FormulaR1C1 = Now() ActiveCell.Offset().Range("A1").Select End Sub 'Thanx