You can easily to retrieve the comment in a cell but I am looking for the reverse
Sub Example()
Dim oComment As Comment
Set oComment = ActiveSheet.Comments(1)
MsgBox Not (oComment Is Nothing) ' <== TRUE proves oComment variable holds a pointer to the comment object...