Can't use string ("") as a subroutine while "strict refs" in use at se
+arch.pl line 100
[download]

The example code you show doesn't have 100 lines.

Please reduce the code you run until it has below 20 lines. Then post that reduced code together with the error message that corresponds to the reduced code.

It's hard for us to interpret an error message for code we're not seeing.

My apologies for bad transcription. It is hard moving from computer to computer, copying and typing. I was hoping it was obvious what I was trying to do. The old way was what is shown above. The new way I am trying to find is replacing the search by row and cell and just use a Find. So the new code would be

use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
my $Excel = Win32::OLE->new('Excel.Application','Quit') or die "Cannot
+ open Excel\n";
my $Book = $Excel->workbooks->Open(FileName => "c:/foo.xlsx", ReadOnly
+ => 1) or die "Cannot open Spreadsheet\n";
my $num_sheets = $Book->Sheets->Count;
for my $sheet_num ( 1 .. $num_sheets ) {
    my $Sheet = $Book->worksheets( $sheet_num );
    my $max_col = $Sheet->UsedRange->SpecialCells( xlCellTypeLastCell 
+)->Column;
    my $max_row = $Sheet->UsedRange->SpecialCells( xlCellTypeLastCell 
+)->Row;
    my $loc = $Sheet->UsedRange->Cells->Find({What=>"cabbage"});
}
[download]

Running in debug gives "Undefined subroutine &main:: called at (eval 14)D:/software/Perl/lib/perl5db.pl:646 line 2, <$lh> line 7."

Running without debug gives "Can't use string ("") as a subroutine while "strict refs" in use at search.pl line 12, <$lh> line 7."

Again, I am trying to do my best to transcribe.

Try

#!perl
use strict;
use Win32::OLE 'in';
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;

my $Excel = Win32::OLE->new('Excel.Application','Quit') 
  or die "Cannot open Excel";
  
my $Book = $Excel->workbooks->Open( 'c:/foo.xlsx') 
   or die "Cannot open Spreadsheet"; 

for my $Sheet ( in $Book->Worksheets ) {
  my $first = $Sheet->Cells->Find({What=>"cabbage"});
  if ($first->{value}){
    printf "%s %-20s %s\n",$Sheet->{name},$first->{address},$first->{v
+alue};
    my $last = $first;
    while (my $next = $Sheet->Cells->FindNext($last)){
      last if $next->{address} eq $first->{address};
      printf "%s %-20s %s\n",$Sheet->{name},$next->{address},$next->{v
+alue};  
      $last = $next;
    };
  }
}
[download]

poj

The line numbers seem to be a bit off, but it looks like $Book->worksheets is probably returning undef, which is leading to all of the errors when you try to call $Sheet->().