What is the syntax to set a comment's font?

[Charlie Mac]

I am using this code :

Selection.Comments.Add Range:=Selection.Range, Text:="Testing"

to add comments. What is the syntax to set the font (e.g. "Arial")
for this comment? Thanks.

 

[Tony Jollans]

Something like this should do it ...

Set NewComment = Selection.Comments.Add(Range:=Selection.Range)
With NewComment.Range
.Text = "Hello"
.Font.Name = "algerian"
End With