Hi,
You could use the Sheet_Change event.
i.e.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("G:I, K:M, O:O")) Is Nothing Then Range("N" & ActiveCell.Row) = Date End If End Sub
Hi,
You could use the Sheet_Change event.
i.e.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("G:I, K:M, O:O")) Is Nothing Then Range("N" & ActiveCell.Row) = Date End If End Sub
Richard Buttrey
RIP - d. 06/10/2022
If any of the responses have helped then please consider rating them by clicking the small star icon below the post.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks