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