Sub invisibles()For Each cmtr In ActiveSheet.Comments
cmtr.Visible = False
Next
End Sub
Sub visibles()
For n = 1 To Cells(2, Columns.Count).End(xlToLeft).Column
If Cells(2, n) = Range("B1") Then
For Each cmtr In ActiveSheet.Comments
If cmtr.Parent.Column = n Then
cmtr.Visible = True
cmtr.Shape.Top = cmtr.Parent.Top + 6
cmtr.Shape.Left = cmtr.Parent.Offset(0, 1).Left + 6
cmtr.Shape.TextFrame.AutoSize = True
End If
Next
End If
Next
End Sub