Help for this page
for ($app->Selection) { $_->{ColorIndex} = 8; };
my $sel = $app->Range("A1"); my $interior = $sel->Interior; $interior->{ColorIndex} = 8; $interior->{Pattern} = xlSolid;