Code for opening Comment box

[chris46521]

Hello,

Does anyone know what code would automatically bring up a comment bo
when the word "JOINT" is typed in that cell? I already have the I
statement, but I don't know the code to open a comment box.

Thanks, Chir

 

[Guest]

MyRange.AddComment
MyRange.Comment.Visible = False 'Or True
MyRange.Comment.Text Text:="your comment here."

Where MyRange is the range of your cell.

Mike

 

[chris46521]

Thanks Mike! That works great. Do you know if there is a way to have the
comment box open up with the cursor flashing after some bold text? I
would also like the box close again after the user has finished
inputting the data.

Thanks!

Chris

 

[Guest]

Chris,

Not sure about the bold text, but this will create a comment, make it
visible, add some text, and then leave it open for the use to make additions
to the text.

MyRange.AddComment
MyRange.Comment.Visible = True
MyRange.Comment.Text Text:="your text" & Chr(10)
MyRange.Comment.Shape.Select True

Mike

 

[chris46521]

Perfect! Thanks!

Chris,

Not sure about the bold text, but this will create a comment, make it
visible, add some text, and then leave it open for the use to mak
additions
to the text.

MyRange.AddComment
MyRange.Comment.Visible = True
MyRange.Comment.Text Text:="your text" & Chr(10)
MyRange.Comment.Shape.Select True

Mike