Thanks Chad, but that is not working for me. It tells me the paste and copy
shapes are not the same size.

"Chad" wrote:

How about making a macro with code similar to the following:

Cells.Find(What:="rerun", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Cells.Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste

You could incorporate this code with an OnError command that if the text
"rerun" is not found, the data is not copied.

Hope this helps
-Chad

" wrote:

I am looking for a way to copy all the records from one spreadsheet to
another if a particular word (i.e. "rerun") is found anywhere in the
spreadsheet. What function would I use?