$sht->Range("A1")->Select;

##</code><code>##

my $rng = $sht->Range("A1");