Hi seantera,

This worked for me.
It changes all the sheet1 comment's font to Times Roman

Dim i As Long
For i = 1 To Sheet1.Comments.Count
Sheet1.Comments(i).Shape.TextFrame.Characters.Font .Name = "Times
Roman"
Next
End Sub

Ken Johnson