Re: select all rows and autofit them
There is much text in the columns. I think with your code, the columns would get very wide.
I recorded a macro, selecting 'Cells', and ticking off the option 'wrap text'. This works fine - the rows are more viewable now.
'format rows ActiveSheet.Rows.Select With Selection .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With