How can I make all of the comments on a single worksheet a different
font?


--
seantera
------------------------------------------------------------------------
seantera's Profile: http://www.excelforum.com/member.php...o&userid=27294
View this thread: http://www.excelforum.com/showthread...hreadid=518893

Hi seantera,

This worked for me.
It changes all the sheet1 comment's font to Times Roman

Dim i As Long
For i = 1 To Sheet1.Comments.Count
Sheet1.Comments(i).Shape.TextFrame.Characters.Font .Name = "Times
Roman"
Next
End Sub

Ken Johnson

Hi seantera,
Sorry, I didn't copy the macro heading, and the broken line could cause
a problem, so try...

Sub ChangeCommentFont()
Dim i As Long
For i = 1 To Sheet1.Comments.Count
Sheet1.Comments(i).Shape.TextFrame.Characters.Font .Name _
= "Times Roman"
Next
End Sub

Ken Johnson

Me again,

It would have been more sensible of me to have used ActiveSheet rather
than Sheet1, so try...

Sub ChangeCommentFont()
Dim i As Long
For i = 1 To ActiveSheet.Comments.Count
ActiveSheet.Comments(i).Shape.TextFrame.Characters .Font.Name _
= "Times Roman"
Next
End Sub

Ken Johnson