Range("B1").NoteText "Hi. I'm a comment"
Range("B2").NoteText "When this code was exicuted, the value in A1 was " & Range("A1").Text
Range("B3").NoteText "Comments do not contain dynamic contents" & vbCr & "Auto updating the comment in B2 would require VBA"