Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("k2:z10000")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Comment Is Nothing Then
Target.AddComment.Text Text:=CStr(Date)
Target.Comment.Visible = False
Else
Target.Comment.Visible = False
If Target.Value = "" Then
Target.Comment.Delete
End If
End If
End Sub
