With Workbook.Sheets[1].Range['E5', 'E5'].AddComment do begin Text := 'Comment'; Shape.Width := 300; end;