excel vba masks all comments
' Adds a comment, masks / shows all comments
Sub TestMe()
With Worksheets(1).Range("e5").AddComment
.Visible = False
.Text "reviewed on " & Date '
End With
' Hides all comments
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
' Shows all comments
Application.DisplayCommentIndicator = xlCommentAndIndicator
End Sub