In diesem Beispiel wird der Zelle E5 des ersten Blattes ein Kommentar hinzugefügt.
With Worksheets(1).Range("e5").AddComment .Visible = False .Text "reviewed on " & Date End With