Sub HideComments()
 Dim c As Comment
 For Each c In ActiveSheet.Comments
  c.Visible = False
 Next c
End Sub