Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B1:B10")) Is Nothing And Target <> "" Then
If Not Target.Comment Is Nothing Then
Target.Comment.Text Text:=Date & " " & Time
Else
Target.AddComment Date & " " & Time
End If
End If
End Sub