> Then delete all the sheets that start with "sheet"
>
> $SheetTabName = $Book-> Worksheets($_)->{Name};
> foreach ( 1...$SheetCnt)
> {
> $SheetTabName = $Book-> Worksheets($_)->{Name};
> if ( $SheetTabName =~ /^sheet/i )
> {
> $Book->Worksheets("$SheetTabName")->Delete;
> }
> }
>
Or just
$Book->Worksheets("Sheet $_")->Delete for 1..3;
--
Mark.
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
