For Each X In ActiveChart.SeriesCollection Worksheets("ChartData").Cells(1, Counter) = X.Name With Worksheets("ChartData") To execute the macro, create a new sheet in the Excel file. Then select ...