Row height change if less than....

[buzz71023]

Is there a way to get a row to resize if it is below acertain height?
I have my rows in a range set to 38 but I have them autofitting once the day is entered in case the row needs to be taller.
Is there a way for this to either only resize if it is goingto make it taller OR after the AUTOFIT function to read the row height againand resize back to a 38 if the height is less than 38.
By the way the function will need to work with ACtiveCell asthis macro operates several rows depending on what row is selected

Below is my autofit

[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]ActiveCell.Rows("1:" &Selection.Rows.Count).EntireRow.EntireRow.AutoFit[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]

 

[jmacleary]

Hi there. Add this code after the AutoFit

Dim rw As Range
For Each rw In Selection.Rows
    If rw.RowHeight < 38 Then
        rw.RowHeight = 38
    End If
Next

 

[buzz71023]

awesome... Thank you... Works great

 

[jmacleary]

You're welcome, and thank for the feedback.