VBA to auto adjust row height to fit Text

[Socrates055]

I am using Excel 2010 and my data is variable in number of rows and length of text in each cell and Wrap Text is on. What would be the VBA code to automatically adjust row height from $A$3:INDIRECT("$R$&"COUNT(D:D)) to fit text but have a minimum row height of 27.
~INDIRECT() Gives me the last cell in my data~

Since my text is Arial Size 6 (I need to keep zoom at 115%) using the built in Autofit Row Height causes the height to be 8.25 if its a single line of text.

To sum up, I would like a way to have Excel auto adjust row height to fit text string but have a minimum row height set at 27.

 

[AFPathfinder]

Something like this?

Sub RowHeightMin()
    Dim finalRow As Integer
    Dim i As Integer
    
    finalRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    Range("A1:A" & finalRow).EntireRow.AutoFit
    
    For i = 2 To finalRow
        If Range("A" & i).EntireRow.RowHeight < 27 Then
            Range("A" & i).EntireRow.RowHeight = 27
        End If
    Next i
End Sub

 

[Socrates055]

Thank you for helping me. Your code worked exactly as I wanted.

 

[AFPathfinder]

You're welcome!