Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Comment Is Nothing Then Target.AddComment
Target.Comment.Text Text:=CStr(Now)
Target.Comment.Shape.TextFrame.AutoSize = True
Target.Comment.Visible = False
End If
End Sub