Attempting to put time stamp at the end of a modified row using borrowed script from another thread. The borrowed script works well but the modified script doesn't. I am attempting to put a timestamp at the end of the row if anything is modified between columns 13 and 22 and put the time stamp in the corresponding row cell on column 25. The original puts the date stamp on the first column cell of any column modified between rows 2 and 17. Not sure why this won't work. All of this script was placed in the worksheet and not in a module. The first set of code is the original and the second is the modified code. The original code works well, but my modified code doesn't work at all. Any help is greatly appreciated.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.EnableEvents = False
For Each c In Target
If c.Column > 1 And c.Column < 18 Then
Cells(c.Row, 1) = Now
End If
Next c
Application.EnableEvents = True
End Sub
Private Sub Existing_Entries(ByVal Target As Range)
Dim c As Range
Application.EnableEvents = False
For Each c In Target
If c.Column > 12 And c.Column < 23 Then
Range(c.Row, 25) = Now
End If
Next c
Application.EnableEvents = True
End Sub
Bookmarks