Read this node. Everyting a growing monk needs to fulfill his daily allowance of OLE programming with Excel.

More specifically, don't create a new sheet, set :

my $Sheet = $Excel->{ActiveSheet};
[download]

and you should be able to modify the last row, last column section in the tutorial to work within a given selection, vs. on a given sheet.

Update::

'course, you don't necessarily have to work with that chunk of code, since in this case the Application->Selection object returns a Range object, so you could always just do this:

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
use Win32::OLE::NLS qw(:LOCALE :DATE);

$Win32::OLE::Warn = 3; 

my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
        or die "Ain't gonna work without an open worksheet\n";
      
   my $Sheet = $Excel->{ActiveSheet};
   my $array  = $Excel->Selection->{Value};
   foreach my $cell(@{$array}){
       print $cell->[0]."\n";
   }
[download]

C-.

---
Flex the Geek