var Sheet: TXLSWorksheet; begin Sheet := Workbook.Sheets[1]; Sheet.Activate; Sheet.Range['A1', 'B3'].Select; Workbook.SaveAs('C:\Reports\data-entry.xls'); end;