Marco to add a comment

Paul B · Mar 16th, 2002, 03:40 PM

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 · Mar 16th, 2002, 04:30 PM

Try this :-

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

Paul B · Mar 16th, 2002, 05:34 PM

That works Thanks

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 16th, 2002, 03:40 PM	#1
Paul B Board Regular Join Date: Feb 2002 Location: Georgia USA Posts: 544	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

Mar 16th, 2002, 04:30 PM	#2
Anonymoss Join Date: Mar 2002 Posts: 5	Try this :- Dim comment As Variant comment = InputBox("Enter comment here") If comment = False Then Exit Sub ActiveCell.NoteText comment

Mar 16th, 2002, 05:34 PM	#3
Paul B Board Regular Join Date: Feb 2002 Location: Georgia USA Posts: 544	That works Thanks