sub findCell{
    my $tmpX = shift;
    my $tmpY = shift;
    my ( $row, $col ) = $table->Posn($table->containing($tmpX,$tmpY));
    print "$tmpX:$tmpY: Row $row Col $col\n";
}