my $Sheet = $Book->Worksheets->Add({Before=>$Book->Worksheets(1)}) or die Win32::OLE->LastError();