How to search for text across multiple worksheets and copy rows?

Like this?

Sub x()
  
Dim rFind As Range, sFind As String, sAddr As String, ws As Worksheet
 
sFind = "Change Order"

For Each ws In Worksheets
    If ws.Name <> "Summary" Then
        With ws.UsedRange
            Set rFind = .Find(What:=sFind, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
            If Not rFind Is Nothing Then
                sAddr = rFind.Address
                Do
                    rFind.EntireRow.Copy Sheets("Summary").Range("A" & Rows.Count).End(xlUp)(2)
                    Set rFind = .FindNext(rFind)
                Loop While rFind.Address <> sAddr
                sAddr = ""
            End If
        End With
    End If
Next ws
     
End Sub