If we want to update a column with the current date as and when any cell range is getting changed. This is used when we want to track the date modified of a cell range. Copy and Paste the following piece of code and it will be done automatically.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("D1:D5")) Is Nothing Then With Target(1, 0) .Value = Date .EntireColumn.AutoFit End With End If End Sub
0 Comments