How can I set row height to two lines of text as a minimum, or more if cell contents requires it?



The row height should vary according to the font size. The entire worksheet will be in the same font size. Selecting the entire worksheet and increasing/decreasing font size should change the row height accordingly.

If a row contains nothing at all, then the row height should still be two lines. If a row contains a cell with a long entry that will wrap over more than two lines, then the row height should automatically expand to accommodate the text (to three lines or more).

I thought it was an easy one but so far I haven't been able to figure it out for myself or by searching this forum. Can anyone please help?

you can try this macro...(there could be better solutions) ;adjust elements in red to fit:
Sub getFontsize()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 15
Rows(i).Select
Selection.RowHeight = 2 * (ActiveSheet.Cells(i, 1).Font.Size + 5)
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
If Len(ActiveSheet.Cells(i, 1)) > 30 Then
.Rows.AutoFit
End If
End With

Next i
Application.ScreenUpdating = True
End Sub

Attention: if you use merged cells, or if your cells containing formulas, it will not work properly