Date of Last Modified for a Cell

washcaps2 

Did you perhaps do something that caused the code to enter the date and time in ALL rows of column K? If so, do the following:

• Activate the Visual Basic Editor.
• Press Ctrl+G to activate the Immediate window.
• Type (or copy/paste) the line    Application.EnableEvents = False
• With the insertion point in that line, press Enter.
• Switch back to Excel.
• Select all rows from the row below the "real" used range of the sheet to the very last row 1048576.
• Right-click in the selection and select Delete.
• Activate the Visual Basic Editor.
• Press Ctrl+G to activate the Immediate window.
• Type (or copy/paste) the line    Application.EnableEvents = True
• With the insertion point in that line, press Enter.
• Switch back to Excel.
• Save the workbook.

HansVogelaar with this code currently on this sheet

HansVogelaar  Did this screenshot work?  It's the error message I get

washcaps2 

That must have another cause. The code doesn't impose a limit.

HansVogelaar 

Thanks, that worked.  Only problem I'm having is that I can't insert rows as it says the limit is exceeded.  I'll only ever need 200 rows or so.  Can I limit it to 200 rows instead of the million?

washcaps2 

Let's say you want the timestamp in column M.

Use this variation of the code posted higher up:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("C2:C" & Rows.Count & ",E2:F" & Rows.Count & _
            ",J2:K" & Rows.Count), Target) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        Intersect(Range("M:M"), Intersect(Range("C2:C" & Rows.Count & _
            ",E2:F" & Rows.Count & ",J2:K" & Rows.Count), Target).EntireRow).Value = Now
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub