# Pardon the C-ish loop, it's late. for (my $row = 1; $row <= 10; $row++) { $ws->Range("A$row")->Ungroup(); } # or an alternate if you have an area: # (cell addresses off the top of my head) $ws->Range("A1:D46")->Ungroup();