with .Worksheets(1).Range("e5") .AddComment() .Visible = .F. .Comment.Text("reviewed on "+mdy(Date())) endwith