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