var InputArea: IXLSRange; begin InputArea := Workbook.Worksheets[1].Range['A1', 'G37']; InputArea.Clear; InputArea.Cells[1, 1].Value := 'Ready for new data'; end;