Attribute VB_Name = "testcellcomment3"
Sub テスト()
   
    Range("B2").AddComment Text:="コメント"
    Range("B2").Comment.Visible = True

End Sub