Hi,

I was working with some code this week and, after some very kind help, ended
up with the following. My objective is to display comments in the worksheet
when click or otherwise activate a cell that contains comments. (I don't
want the users to have to point to the cell to see the comment.)

The problems a 1. When one of the users runs the code, he gets a
runtime error 91 and the code only works for one comment. 2. When I run
the code, it seems to work for only one comment. When I tab to other cells
that contain comments, it displays them, but leaves them displayed when I
leave the cell instead of hiding them.

Any help would be GREATLY appreciated.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set r = ActiveSheet.UsedRange.SpecialCells(xlCellTypeComme nts)
r.Comment.Visible = False
If Intersect(Target, r) Is Nothing Then
Exit Sub
End If
Target.Comment.Visible = True
End Sub

--
Thanks!

Dee