Select Code to Download

my $wsheet = $wbook->Worksheets(1);
my $last_row_from_OLE = $wsheet->{UsedRange}->Rows()->Count();
...
$range->Copy();
my $xlPasteColumnWidths = 8;
$range->PasteSpecial({Paste => $xlPasteColumnWidths});

foreach my $tab_name (@tab_names[1..(scalar  @tab_names - 1)]){
   my $wsheet2 = $wbook->Worksheets->Add( {after => $wbook->Worksheets
+($wbook->Worksheets->{count})} );
   $wsheet2->{Name} = $tab_name;
   $wsheet2->Paste();
}