This is what I have found so far,

'======================
Sub FormatAllComments()
Dim ws As Worksheet
Dim cmt As Comment
For Each ws In ActiveWorkbook.Worksheets
For Each cmt In ws.Comments
With cmt.Shape.TextFrame.Characters.Font
.Name = "Verdana"
.Size = 12
End With
Next cmt
Next ws
End Sub
'========================

Some questions. 1. What is this? 2. How do I use this?


--
lucrosus