VBA Adjust Row height based on a Word in Cell

[MM91]

I need help writing a macro that will adjust row height based on a cell word. So in column L I have either "Purchased" or "Produced" I need to adjust the row height of the rows with Purchased to 39.25 and if it has "Produced" I need to adjust the row height to 12.75. Any help is appreciated! Thanks

 

[Joe4]

Welcome to the Board!

Here is one way:

Sub MyMacro()

    Dim lr As Long
    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Find last row in column L with data
    lr = Cells(Rows.Count, "L").End(xlUp).Row
    
'   Loop through all rows
    For r = 1 To lr
        Select Case Cells(r, "L")
            Case "Purchased"
                Rows(r).RowHeight = 39.25
            Case "Produced"
                Rows(r).RowHeight = 12.75
        End Select
    Next r
    
    Application.ScreenUpdating = True
    
End Sub

 

[MM91]

Awesome thank you so much worked great!

 

[Joe4]

You are welcome.
Glad I was able to help.