comments font size

Y

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
 
G

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
 
Top