Sheet := Workbook.Add; for i := 1 to Workbook.Sheets.Count do Sheet.Cells.Item[i, 1].Value := Workbook.Sheets[i].Name;