Marco to add a comment

[Paul B]

How can you made a Marco add a comment in the active cell, I want a input box to come up an what is typed in it will be put in the comment, I tried is but it want work. I am using '97. Thanks
Sub Add_Comment()
ActiveCell.AddComment
Comment = InputBox("Enter comment here")
ActiveCell.Comment.Visible = False
End Sub

 

[Anonymoss]

Try this :-

Dim comment As Variant
comment = InputBox("Enter comment here")
If comment = False Then Exit Sub
ActiveCell.NoteText comment

 

[Paul B]

That works Thanks