Find Text and Resize Row -- Add multiple "Texts" to find (instead of 1)

[jwb1012]

Hello, I am using the following code to loop through my worksheets and find the text "Method of Quoting:" -- once the value is found, it resizes the row to 100 as I need.

I would also like to resize the "Source of Data:" row and the "Description:" row.

Is there an easy way to add these two options into my code below or do I need to use 3 different modules?

Thank you!

Sub EnlargeMethodOfQuoting()
Dim Sh As Worksheet
Dim x As Integer
Dim End_Row As Integer
    For Each Sh In ActiveWorkbook.Sheets
        If Left(Sh.Name, 9) = "Labor BOE" Then
                
        Dest_Lastrow = Sh.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
        Dest_LastColumn = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.Count
                
            For lRow = Dest_Lastrow To 3 Step -1
                With Sh.Cells(lRow, "B")
                    On Error Resume Next
                        .Find("Method of Quoting:", , xlValues, xlWhole).RowHeight = 100
                    On Error GoTo 0
                End With
                
            Next lRow
        End If
    Next Sh
End Sub