var ReportBody: IXLSRange; begin ReportBody := Workbook.Sheets[1].Range['A2', 'H40']; ReportBody.ClearComments; Workbook.SaveAs('C:\Reports\customer-copy.xls'); end;