"Peter T" <peter_t@discussions wrote in message
...
I don't understand why adjust you columnwidth's in each loop
.ColumnWidth = MergedAreaWidth
then
.ColumnWidth = SourceWidth
if indeed that's what you are doing, each time in a long loop

The final code will have such efficiencies.