J
Jeff Mackeny
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
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