note iamaids Thanks for the article. The following code doesn't work on my machine: <code> my @edges = qw (xlEdgeBottom xlEdgeLeft xlEdgeRight xlEdgeTop xlI +nsideHorizontal xlInsideVertical); $range = "b1:c56"; foreach my $edge (@edges){ with (my $Borders = $Sheet->Range($range)->Borders(eval($edge)), LineStyle =>xlContinuous, Weight => xlThin , ColorIndex => 1); } </code> I'm using ActivePerl 5.8.7. No error messages were encountered. Thanks in advance. 153486 153486