Comment out or remove this line:

    ActiveSheet.ChartObjects("Diagram 1").Activate

Regards