I need a function that will trap & manage a change in cell value

[Terry]

Scenario
A value exists in a cell
The value in the cell is changed by data entry
A date would be populated in an adjacent cell reflecting the date of change
- for that cell only
My worksheet has numerous places that this function would need to work

 

[Terry]

Thank you, Tom. This response will be greatfully used and acknowledged.
What a response!

 

[Terry]

How would this code be changed to update the change date to the comment of
the same cell being changed rather than an adjacent cell?

 

[Tom Ogilvy]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Count > 1 Then Exit Sub
On Error GoTo ErrHandler
' use your list of cells to react to
Set rng = Range("B1,C11,D12,M21,A5:A30,C1:C5")
If Not Intersect(Target, rng) Is Nothing Then
Application.EnableEvents = False
Target.NoteText Text:=Format(Now, "mm/dd/yyyy hh:mm")
End If
ErrHandler:
Application.EnableEvents = True

End Sub