Thread: Cell Change Record

It can be done, but it's not easy (at least not for me).
Try this to get you started:

Sub StartCheckValues(Optional ByVal bStop as Boolean)
    Static dtStarted as Date
    Dim dt as Date

    If bStop Then
        Application.OnTime dtStarted, "CheckValues", Schedule:=False
    Else
        dt = Now + TimeValue("00:01:00")
        Application.OnTime dt, "CheckValues"
        dtStarted = dt
    End If
End Sub

Sub CheckValues()
    Dim r as Range
    With Sheets("Values")
        Set r = .Range("A1")
        Do While r.Value > ""
            If r.Value <> r.Offset(0,1).Value Then
                r.Offset(0,2).Value = r.offset(0,1).Value & " Changed To " & r.Value & " at "  & now
                r.Offset(0,1).Value = r.Value
            End If
            Set r = r.Offset(1)
        Loop
    End With
    StartCheckValues
End Sub

Sub StopCheckValues()
    StartCheckValues True
End Sub

Then run "StartCheckValues" to start checking and "StopCheckValues" to stop checking.
If you want to always be running when the workbook is open then put "StartCheckValues" in Workbook_Open()