foreach $longname (@longnames) {
    $findit = $sheet->Range("A$first_data_row:$last_col$last_row")->Find({What=>$longname});
    if ($findit) {
        $findit->Activate;
        $firstone = $excel->ActiveCell->{Address};
        $fontsize = $excel->ActiveCell->Font->{Size};
        $fontsize -= 2;
        $thisone = ""; $cnt = 0;
        while (($thisone ne $firstone) && ($cnt < 25)) {
            $thisone = $firstone if ($thisone eq "");
            $newhash = $sheet->Range("$thisone")->Find({What=>$longname});
            $newhash->Activate;
            $thisone = $excel->ActiveCell->{Address};
            $excel->ActiveCell->Font->{Size}=$fontsize;
            $cnt++;
        }
    }
} 

##</code><code>##

$newhash = $sheet->Cells->FindNext({After=>ActiveCell});
$newhash = $sheet->Cells->FindNext();
$newhash = $excel->Cells->FindNext({After=>ActiveCell});
$newhash = $sheet->Cells->FindNext({After=>"$thisone"});