Macro

Your full code to use that Function would be

Sub PrepareUpload()
    Dim ws     As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "Journal"    'do nothing
            Case Else
                Find_Range("Yes", Range("W13:W100")).EntireRow.Select
                Selection.Copy Worksheets("Journal").Cells(Rows.Count, 1).End(xlUp)
        End Select
    Next ws
End Sub

Note: rhe UDF (Function) is the work of Aaron Blood)