#Create embedded chart objects
	my $production_chart  = $sheet->ChartObjects->Add(25,250,300,160);
	my $performance_chart = $sheet->ChartObjects->Add(350,250,300,160);

	#Set the Chart Type
	$performance_chart->Chart->{ChartType} = $$xlConst{'xlLine'};
	$production_chart->Chart->{ChartType}  = $$xlConst{'xlLine'};

	#Create the series
	$production_chart->Chart->SeriesCollection->Add($sheet->Range($_."4:".$_."16"),
	                  							  $$xlConst{'xlColumns'},
								                    TRUE) for(qw(E F G H));

	#Create the series
	$performance_chart->Chart->SeriesCollection->Add($sheet->Range($_."4:".$_."16"),
	                  							   $$xlConst{'xlColumns'},
										             TRUE) for(qw(I J));			            
	#Color the background of the charts
	$performance_chart->Chart->PlotArea->Interior->{ColorIndex} = 0;
	$production_chart->Chart->PlotArea->Interior->{ColorIndex} = 0;