my $LastCol = $sheet->UsedRange->Find({
    What => $searchstr,
    LookAt => 2,
    LookIn => -4123,
    MatchCase => "False",
    SearchDirection => $searchdir,
    SearchOrder => xlByColumns
});
return $LastCol ? $LastCol->{Column} : undef;