I am trying to loop through all the charts generated in my workbook which exist on the 2nd sheet to the 2nd to last sheet. I want to loop through all the charts, copy the chart area and paste it onto the last sheet which has data (just a regular spreadsheet).
I can't see why the code below is not working but I end up with a Run-time error '438' - Object doesn't support this property or method on the first line (for loop).
Any ideas why this isn't working?
Sub chartCopy()
For I = Sheets(2) To Sheets(ActiveWorkbook.Sheets.Count - 1)
ActiveChart.ChartArea.Copy
Sheets(Sheets.Count).Select
ActiveSheet.Paste
Next I
End Sub