Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
NewComment
I have the flllowing code to add a new comment, can anyone help me add a
line so it would add the date on the comment Sub NewComment2() Dim strComment As String strComment = InputBox("EnterNote: ", "Note.") If Len(Trim(strComment)) = "" Then Exit Sub With ActiveCell .ClearComments .AddComment .Comment.Visible = False With .Comment.Shape.TextFrame .Characters.Text = strComment .Characters.Font.Name = "Comic Sans MS" .Characters.Font.Bold = True .Characters.Font.Italic = False .Characters.Font.Size = 11 'or even certain Characters' .Characters(14, 4).Font.Bold = False .Characters(1, 3).Font.ColorIndex = 0 .AutoSize = True End With End With End Sub |