Macro run time error

[Guest]

I have created a macro in a workbook that is being used and run by other
people. Each person is naming their workbook something unique.
Unfortunately, that seems to cause problems for the macro. They receive a
run-time error 'subscript out of range'. The code were it is breaking is as
follows:

ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(2).Values = "=Formulas!R11C2"
ActiveWindow.Visible = False
Windows("Savings for Single Country Reporting.xls").Activate
ActiveSheet.ChartObjects("Chart 3").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(2).Values = "=Formulas!R17C2"
ActiveWindow.Visible = False
Windows("Savings for Single Country Reporting.xls").Activate
ActiveCell.Select

This is where the code breaks:

Windows("Savings for Single Country Reporting.xls").Activate


The workbook was renamed by it's new owner to 'LA Draft'. Several other
workbooks were also renamed to different names.

 

[Guest]

Replace Windows("Savings for Single Country Reporting.xls").Activate with
ThisWorkbook.Activate and it will work regardless of the actual name.

 

[Guest]

Worked perfectly!! Thanks Jim

Replace Windows("Savings for Single Country Reporting.xls").Activate with
ThisWorkbook.Activate and it will work regardless of the actual name.

 

[Guest]

I'm always glad to help. Having received my share of help from this group, I
feel good being able to contribute.