アクティブシートに配置されている全てのコメントの背景の色を黄色にします。 Sub Sample93() Dim C As Comment For Each C In ActiveSheet.Comments C.Shape.Fill.ForeColor.RGB = RGB(255, 255, 0) Next C End Sub