comments font size

[y.ranjbaran]

plz hel

I have to increase all comments font size, in excel 2007 in win 7
1000 comment
how can i increase all comments font-size. without making change one b
one?

tnx

 

[Gord Dibben]

Sub FormatAllComments()
'www.contextures.com\xlcomments03.html
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 = "Times New Roman"
.Size = 12
End With
Next cmt
Next ws
End Sub



Gord