Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Comment

For Each C In ActiveSheet.Comments
C.Visible = (C.Parent.Address = Target.Address)
Next C

End Sub


"LDanix" wrote:

Is there a way to show a comment only when the corresponding cell is selected?