excel show hide 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