Sub FormatComments()
For Each Comment In ActiveSheet.Comments
With Comment.Shape.DrawingObject
With .Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 46
End With
End With
Next
End Sub