如何成批的修改EXECL单元格的批注的格式？

在第一张表批量修改批注格式：
请在表名上点击右键，选中‘查看代码’，离开工作表并进入VBE编程界面，粘贴下面的代码，最后回到工作表，点击菜单“工具－宏－宏－运行aaa这个宏

Sub aaa()
x = Sheets(1).Comments.Count
For i = 1 To x
Sheets(1).Comments(i).Text Text:="如何成批的修改EXECL单元格的批注的格式？"
Sheets(1).Comments(i).Visible = True
Sheets(1).Comments(i).Shape.Select
With Selection.Font
.Name = "宋体"
.FontStyle = "加粗"
.Size = 11

.ColorIndex = 3
End With
Next
[a1].Select
End Sub