With Workbook.Sheets[1] do begin With Range['B2', 'B2'].AddComment('Comment text') do begin Shape.Fill.ForeColor.RGB := RGB(180, 180, 255); end; end;