Sub insert_comment()
	Range("A1").AddComment
	'A1にコメントを作成します
    	Range("A1").Comment.Visible = False
	'コメントは非表示にします
    	Range("A1").Comment.Text Text:="ちゅん:" & Chr(10) & "test" 
	'コメントのテキストをちゅん(改行)testを挿入します
End Sub