I'm trying to copy two worksheets of an existing Workbook to a new workbook. One of the sheets has charts. These charts still reference the old workbook and I want to change data source to new file(The second sheet I copy is the data sheet). I wrote the following code and I am getting the error mentioned above
NewBook.Sheets(1).Activate
ActiveWorkbook.ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.SetSourceData Source:=NewBook.Sheets(2).Range("B14:E20")
I Think the error could be that when I select the chart and change data, the previous workbook is activated and hence there is no longer an active sheet. So I tried this code
NewBook.Sheets(1).Charts("Chart 2").SetSourceData Source:=NewBook.Sheets(2).Range("B5:F11")
I'm now getting the Run time error 438. Could someone help me with this and help me understand what's happening. Thanks a lot in advance!