use strict;
use warnings;
use Win32::OLE;

my $xl = Win32::OLE->new('Excel.Application');
$xl->{SheetsInNewWorkbook} = 2;
$xl->{Visible} = 1;
my $wb = $xl->Workbooks->Add;

my $cellSource = $wb->Sheets(1)->Cells(1,1);
$cellSource->{Value} = 1;
my $cellTarget = $wb->Sheets(2)->Cells(2,2);
$cellTarget->{Value} = 2;

my $addFound = $wb->Sheets(2)->Cells->Find({
	What   => $cellSource->{Value},
	LookIn => -4163							#xlValues
});
if ($addFound) {print "Found\n"} else {print "Not found\n"}