Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:J")) Is Nothing Then
Application.EnableEvents = False
If WorksheetFunction.CountA(Range(Cells(Target.Row, 3), Cells(Target.Row, 10))) > 0 Then
Cells(Target.Row, 1) = Date
Application.EnableEvents = True
Open in new window
IT issues often require a personalized solution. With Ask the Experts™, submit your questions to our certified professionals and receive unlimited, customized solutions that work for you.