My CommentBox is Visible Afterwards

[JimMay]

I'm trying to get this going
And it works fine, Except after running
And editing a comment (after clicking outside the
Comment box the Comment Box is still selected or at least
Displayed. I have to NOW - at the menu click on View
Comments to turn the display (of it) off.
What can I do (within the Macro) to achieve this?
TIA,

Sub EditComment()
'method suggested by Jon Peltier 2006-03-04
'adds text at end of existing comment text
Dim cmt As Comment
Set cmt = ActiveCell.Comment
If cmt Is Nothing Then
Exit Sub
End If
'type to add comment text to selected shape
cmt.Visible = True
cmt.Shape.Select << the Box comes up and I edit my comment

End Sub

 

[Leith Ross]

Hello JimMay,

To get this to work, the comment's Visible property must be set to
False when the editing is done. This can be detected when a different
cell on the Worksheet is selected.

Place this code in each Worksheet's SelectionChange event procedure...

Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
cmt.Visible = False
Next cmtPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)

The result should look like this...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
cmt.Visible = False
Next cmt
End Sub

Sincerely,
Leith Ross

 

[JimMay]

Thank you Leith;
It works great
Jim

"Leith Ross" <[email protected]>
wrote in message