corrupted file- result of output of VBA code

Try:

' Renaming the Charts so they are always the same Chart number
For i = 1 To ActiveSheet.ChartObjects.Count
' this loop should stop the corruption issue
with ActiveSheet.ChartObjects(i)
.activate
.Name = "Chart " & i
end with
Next i