Attribute VB_Name = "testcellcomment4"
Sub テスト()
   
    Dim range1 As Range

    Set range1 = Range("B2")
    range1.AddComment Text:="コメント"

    MsgBox "コメントを設定しました"

    range1.ClearComments

    MsgBox "コメントを削除しました"

End Sub