select all rows and autofit them

Hi,
I want to select all rows, and then autofit each row.
The following code somehow does not work:

ActiveSheet.Rows.EntireRow.AutoFit

Cheers,
Juergen

Re: select all rows and autofit them

Hi,
thanks.
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

Juergen