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

my $found = $range->Find({ What => 'John' });
my $firstfound = $found;
do {
    warn $found->{Address}," = ",$found->{Value},"\n";
    
    $found = $range->FindNext($found);
} while($found && $found->{Address} ne $firstfound->{Address});

##</code><code>##

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

##</code><code>##

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