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!

 

[Fluff]

How about

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

 

[SaraWitch]

I am in awe!!! Thank you soooo much, @Fluff!

 

[Fluff]

Glad we could help & thanks for the feedback.