Oct 05 2023 04:34 AM
Oct 05 2023 07:12 AM
@SanthoshKunder yes I saw that - I've pretty much search this to death in the last 24hours. That particular solution would require me to right a formula on a row by row basis I think. Plus the thread got a bit in depth for me, involved a lot of trial an error for the contributors and didn't look like the issue was resolved.. It's not the succinct answer I'm looking for .
Oct 05 2023 07:40 AM
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("G2:G" & Rows.Count), Target) Is Nothing Then Application.ScreenUpdating = False Application.EnableEvents = False Intersect(Range("G2:G" & Rows.Count), Target).Offset(0, 9).Value = Date ' or Now Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub