Select Code to Download

Sub Macro1()
    Sheets("Graph").Select
...
    ActiveChart.SetSourceData Source:=Sheets("Data").Range("A1:C49"), 
+PlotBy:= _
        xlColumns
End Sub

use strict;
use warnings;
...
undef $workbook;
undef $excel;
exit();