### Here we update the graphs sourcedata

            my $Chart1 = $RequestsSheet->ChartObjects("Chart 1");
            $Chart1->Activate();
            my $name = $Chart1->Name();
            print "Chart1 Name: ", $name ,"\n";\
            $RequestsSheet->ChartObjects("Chart 1")->Activate();


############### This line here blows everything up.            
            $Chart1->SetSourceData({Source => '=Data!\$A\$2:\$A\$295'}
+);
     

##</code><code>##

            ### Here we update the graphs sourcedata
            my $Chart1 = $RequestsSheet->ChartObjects("Chart 1");
            my $sourceRange = "A1:A295,G1:G295";
            my $Chart1Range = $DataSheet->Range($sourceRange);


############### This line here blows everything up.
            $Chart1->SetSourceData({Source =>$Chart1Range,PlotBy => xl
+Columns});