keep track of changes in the cells as comments

Hi There , I have this VBS which I found online which keep track of changes in the cells as comments in the affected cell.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Variant, y As Variant

If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
x = Target.Value
Application.Undo
y = Target.Value
Target.Value = x
Application.EnableEvents = True

Target.NoteText Text:=Target.NoteText & Chr(10) & "Old value " & y _
& " changed to " & x & " on " & Format(Date, "mm-dd-yyyy") _
& " by " & Environ("username")

Target.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
Target.Comment.Shape.TextFrame.AutoSize = True
End Sub

But I will need to use it only for column T (Date value) to register changes in dates of these columns/Cells, great if someone can help

Why this duplicate post ?‼

http://www.excelforum.com/excel-prog...ml#post4123218 ‼