Select Code to Download

my $range = $wb->Sheets('Sheet1')->Range("B1:B10");

...
    
    $found = $range->FindNext($found);
} while($found && $found->{Address} ne $firstfound->{Address});

$B$2 = John
$B$4 = John
$B$7 = John

$found->Font->{Size} -= 2;