Workbook.Sheets[1].Cells.Item[1,3].Font.Size := 10;
With Workbook.Sheets[1].Cells.Font do begin Name := 'Arial'; Size := 11; end;