Thank you Leith;
It works great
Jim

"Leith Ross"
wrote in message
:

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


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=552913