Sub CommentFontSize()
 Dim cmt As Comment
 For Each cmt In ActiveSheet.Comments
  cmt.Shape.TextFrame.Characters.Font.Size = 9
 Next
End Sub