Sub ResetCommentStyle() Dim sh As Worksheet Dim c As Comment Dim i As Integer 'Step through each Worksheet For Each sh In Worksheets 'Step through each Comment For Each c In sh.Comments With c.Shape.TextFrame.Characters.Font .ColorIndex = 1 'Font Color .Size = 10 'Font Size .Name = "Calibri" 'Font Type End With i = i + 1 Next c Next sh msgtxt = "Updated " + CStr(i) + " comments." msgtxt = msgtxt + Chr(10) + "On " + CStr(Worksheets.Count) + " workshets" MsgBox msgtxt, vbOKOnly, "Comment Update Complete" End Sub