Need a tweak to worksheet change code that autofits the row height of merged cells

Hi, I found the below code to autofit the row height of merged cells. It works fine, but Excel sets the row height to 17 pixels per row and the rest of the worksheet is 20. Is there any way to tweak the code so that each row is allocated 20 instead of 17?

Thank you!


Private Sub Worksheet_Change(ByVal Target As Range)
Dim MergeWidth As Single
Dim cM As Range
Dim AutoFitRng As Range
Dim CWidth As Double
Dim NewRowHt As Double
Dim str01 As String
str01 = "LossEval"

If Not Intersect(Target, Range(str01)) Is Nothing Then
Application.ScreenUpdating = False
On Error Resume Next
Set AutoFitRng = Range(Range(str01).MergeArea.Address)

With AutoFitRng
.MergeCells = False
CWidth = .Cells(1).ColumnWidth
MergeWidth = 0
For Each cM In AutoFitRng
cM.WrapText = True
MergeWidth = cM.ColumnWidth + MergeWidth
Next
'small adjustment to temporary width
MergeWidth = MergeWidth + AutoFitRng.Cells.Count * 0.66
.Cells(1).ColumnWidth = MergeWidth
.EntireRow.AutoFit
NewRowHt = .RowHeight
.Cells(1).ColumnWidth = CWidth
.MergeCells = True
.RowHeight = NewRowHt
End With
Application.ScreenUpdating = True
End If

End Sub

Hi Marvin, that changed the pixels on the first row to 26 and the wrap function doesn't work anymore.

I previously tried the below, but it would only work if there was 1 row of content. Any more and it went back to 17 for all rows (so 2=34, 3=51, etc.)

Changed:
NewRowHt = .RowHeight

To:
NewRowHt = Application.Max(.RowHeight, 15)