Autofit row height w minimum

[karissao]

Sub CCAutofit()
Dim rRow As Range
With Range("RngOrders").Select
Rows.AutoFit
For Each rRow In .Rows
If rRow.RowHeight < 20.25 Then rRow.RowHeight = 20.25
Next rRow
End With

End Sub

What is wrong here? I want to autofit all the row heights, but keep the minimum row height at 20.25. All help is much appreciated. Thanks!

 

[Andrew Poulsom]

Unnecessary Select and missing dot qualifier. Try:

Sub CCAutofit()
    Dim rRow As Range
    With Range("RngOrders")
        .Rows.AutoFit
        For Each rRow In .Rows
            If rRow.RowHeight < 20.25 Then rRow.RowHeight = 20.25
        Next rRow
    End With
End Sub