Var Comment: TXLSComment;
begin
  ...
  With Workbook.Sheets[1] do begin
    Comment := Range['B2', 'B2'].Comment;
    if Assigned(Comment) then Comment.Shape.Fill.ForeColor.RGB := $E0E0FF;
  end;
  ...
end;