Sub E()
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:="This is a Test"
With ActiveCell.Comment.Shape.TextFrame.Characters.Font
.Name = "Times New Roman"
.Size = 12
.Bold = False
End With

End Sub

--
Regards,
Tom Ogilvy



"Donald Stockton" wrote in message
...
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:="This is a Test"


The above code will add a comment to the active cell, but how can I also
change the Font properties rather than excel using the default setting?


D.S.

*** Sent via Developersdex http://www.developersdex.com ***