Wordwrap row sizing

[ge0rge]

I have a column 'E' which all cells are set to wordwrap. It works as planned. Is there a way however so that once this happens that the smallest row height allowed is 16, while still maintaining proper word wrapping in cells needing it?

I tried starting with all rows set to 16 before word wrapping column 'E' but then it moved those not needing it to a height of 11.25.

Thanks.

 

[AnAnalyst]

Hi there,

How about something like this:

Sub rowminheight()
    finalrow = Cells(Rows.Count, 5).End(xlUp).Row
    startrow = 2
    Set rngRows = Cells(startrow, 5).Resize(finalrow, 1)
    Dim rw As Object
    For Each rw In rngRows.Rows
        If rw.RowHeight < 16.5 Then
            rw.RowHeight = 16.5
        End If
    Next rw
    Set rngRows = Nothing
End Sub

 

[ge0rge]

Very nicely done. Thanks for that. I am surprised its not already a parameter you can preset in Excel. Thanks!