セルにコメントを挿入する場合、最初に AddComment メソッドでコメントを追加してから
Comment.Text プロパティでコメント内容を設定します。
Sub sample6_28()
With Range("B2")
'コメントを追加
.AddComment
'コメント内の改行はラインフィード(vbLf)を使用します。
.Comment.Text "コメント1" & vbLf & "コメント2"
End With
End Sub
コメントを削除するには、Comment.Delete メソッドを呼び出します。
Sub sample6_28_2()
'コメントを削除
Range("B2").Comment.Delete
End Sub