You could use a loop like this to set the $Sheet object equal to the Position worksheet:

for (1..$Book->Worksheets->Count) {
        my $name = $Book->Worksheets($_)->{Name};
        if ($name =~ /Position/) {$Sheet = $workbook->Worksheets($_)};
}
[download]

chinman