$oBook->AddWorksheet('February');

##</code><code>##

my $oOld_Sheet = $oBook->{Worksheet}[0];
for (my $row = 0; $row <= 4; $row++) {
	my $oCell = $oOld_Sheet->{Cells}[$row][0];
	if (defined $oCell->{Val}) {
		$oBook->AddCell(1, $row, 0, $oCell->{Val}, $oCell);
	 }
 }