With Workbook.Sheets[1] do begin With Range['D8', 'D8'].AddComment('Please notice') do begin Shape.Fill.Visible := true; Shape.Fill.Solid; Shape.Fill.ForeColor.RGB := $FF6666; end; end;