add comment to cell in vba code example

Example: excel vba add comment

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