my $MinRow = $inWks->UsedRange->Find({What=>"*", SearchDirection=>xlNext, SearchOrder=>xlByRows})->{Row};
my $MaxRow = $inWks->UsedRange->Find({What=>"*", SearchDirection=>xlPrevious, SearchOrder=>xlByRows})->{Row};

my $MinCol = $inWks->UsedRange->Find({What=>"*", SearchDirection=>xlNext, SearchOrder=>xlByColumns})->{Column};
my $MaxCol = $inWks->UsedRange->Find({What=>"*", SearchDirection=>xlPrevious, SearchOrder=>xlByColumns})->{Column};