You would need to use VBA due to the fact that the TODAY() function is volatile and can change each time the worksheet recalculates.
If you put this code in the worksheet module, it will update B-cells with the current date & time only when the adjacent A-cell is changed.
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Columns("A:A")) Is Nothing Then Range("B" & Target.Row) = Now End If End Sub
Bookmarks