Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim c As Range, ZoneComplete As Range
If Target.Count <> 1 Then Exit Sub
Set ZoneComplete = ActiveSheet.Range("A1:F7")
If Intersect(Target, ZoneComplete) Is Nothing Then Exit Sub
For Each c In ZoneComplete
If Not c.Comment Is Nothing Then c.Comment.Visible = (c.Row = ActiveCell.Row)
Next
End Sub