Automatic Row Height for Wrapped Text

[SaraWitch]

Hello peeps,

I would like to automatically adjust the row height for wrapped text (i.e., not do this manually). I also don't want to use the AutoFit Row Height because I want a default minimum height. I did find the following formula online which I have tried in the worksheet, ThisWorkbook, and a Module, but it's not working for me:

Sub AutofitRows()
For Each CL In UsedRange
If CL.WrapText Then CL.Rows.AutoFit
Next
End Sub

Any tips?

Ta muchly, folks!

 

[GWteB]

How about ...

Sub Wrap40()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange
        If c.WrapText Then c.RowHeight = 40
    Next
End Sub

 

[Fluff]

What is the default minimum?

 

[SaraWitch]

Thanks @GWteB, but that's not working for me either.

@Fluff default minimum is 30.75.

 

[Fluff]

Is there any particular column you want to look at?

 

[SaraWitch]

Columns B:X...

 

[Fluff]

Thanks for that, however I realised the columns were irrelevant.
Try

Sub SaraWitch()
   Dim Cl As Range
   
   With ActiveSheet.UsedRange
      .EntireRow.AutoFit
      For Each Cl In .Columns(1).Rows
         If Cl.RowHeight < 30.75 Then Cl.RowHeight = 30.75
      Next Cl
   End With
End Sub

 

[SaraWitch]

Hmmm. Still not working for me! I presume it is Cl (L) in formula, not C1 (one), but have tried both, and also presume formula is put in a Module, but I did also try it in ThisWorkbook and the sheet; with no luck.

 

[Fluff]

In what way doesn't it work?

 

[SaraWitch]

Doh! Sorry @Fluff, I didn't run it!!! Works a treat; thank you! Don't suppose there's any way of only applying it from Row 7?