$Win32::OLE::Warn = 3;                     # die ( UGLY ) on errors...
my $Excel =  Win32::OLE->new('Excel.Application', 'Quit');
my $Book = $Excel->Workbooks->Open($FN);
my $Sheet = $Book->Worksheets(1);         # select worksheet number 1

$LastCol = $Sheet->UsedRange->Find({What=>"*",
        SearchDirection=>xlPrevious,
        SearchOrder=>xlByColumns})->{Column}; 

##</code><code>##

$lastdate =  $Sheet->Range("CK1")->Win32::OLE::valof({'Value'});
print "Data is THROUGH $lastdate \n\n";

##</code><code>##

$lastdate =  $Sheet->Range($LastCol)->Win32::OLE::valof({'Value'});
print "Data is THROUGH $lastdate \n\n";

##</code><code>##

Win32::OLE(0.1702) error 0x800a03ec<br>
    in METHOD/PROPERTYGET "Range" at getdrills_time3.pl line 32
##</code><code>##

$lastdate = $Sheet->Cells(1, $LastCol)->Win32::OLE::valof ({ 'Value'});
print "jcmcnamara's version: $lastdate \n";