Ateeb Ali
What freezes? How do You see it?
> Why do You have there 2004 'today()'s?
>> Could eg You write to cell B1=today()
and to cell B3=if(d3<>0,b$1,"")
and copy down as use ... less today's?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim trow As Long
If Target.Column = 4 Then
trow = Target.Row
Range("B" & trow) = Date
End If
End Sub
=Today()
18-Mar-2020, if some D-column values has changed=Today()
19-Mar-2020, if some D-column values has changed=Today()
20-Mar-2020, if some D-column values has changedyou were right, now I need this helpAteeb Ali
If You need that ... then okay.
That do not 'freeze' dates, but it won't change all B-column values.
If You write again something to already filled D-column cell, then it will change B-column date.
worked perfectlyAteeb Ali
Something like this ...?