Hi Ad Aspera, Try Like this,

use strict;
use warnings;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;                                # die on errors.
+..

my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
    || Win32::OLE->new('Excel.Application', 'Quit');  # get already ac
+tive Excel
                                                      # application or
+ open new
my $Book = $Excel->Workbooks->Open('C:\Documents and Settings\velusamy
+r\My Documents\tes.xls'); # open Excel file

my $Sheet = $Book->Worksheets(1);                         # select wor
+ksheet number 1

my $lastrow = $Sheet->UsedRange->Find({What=>"*",
    SearchDirection=>xlPrevious,
    SearchOrder=>xlByRows})->{Row};

$Sheet->Cells(1, 3)->{Value} = "Address";

for (2..$lastrow)
{
    $Sheet->Cells($_, 3)->{Value} = $Sheet->Hyperlinks($_ - 1)->Addres
+s;
}

$Book->Save();

__END__
Name    Email    Address
Lee1    Yes    mailto:Lee@somewhere.com1
Lee2    Yes    mailto:Lee@somewhere.com2
Lee3    Yes    mailto:Lee@somewhere.com3
Lee4    Yes    mailto:Lee@somewhere.com4
Lee5    Yes    mailto:Lee@somewhere.com5
Lee6    Yes    mailto:Lee@somewhere.com6
[download]