with book.Sheets[1] do begin with Cells[5, 5].AddComment('Comment text') do begin Shape.Fill.Visible := true; Shape.Fill.Solid; Shape.Fill.ForeColor.RGB := $00E000; end; end;