corrupted file- result of output of VBA code

Would this work?

 'Activating charts
Dim myChart As ChartObject
For Each myChart In Sheets("Output Report").ChartObjects
    myChart.Activate
Next myChart

' Renaming the Charts so they are always the same Chart number

For i = 1 To ActiveSheet.ChartObjects.Count
    ActiveSheet.ChartObjects(i).Name = "Chart " & i
Next i