Hi again,

I exited Excel and then re-tried your code and it worked! Thank you! Why
would this make a difference?


--
Thanks!

Dee


"Gary''s Student" wrote:

We need to loop the hide part:

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

--
Gary''s Student - gsnu200720