Alix,

I add the Exit sub in Bob's code it should exit the sub if PUP not
found.

HTH

Charles




Windows("2.txt").Activate
Set ofound = Cells.Find(What:="PUP", _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not ofound Is Nothing Then Exit Sub<<<< I add this
ActiveCell.Offset(rowOffset:=0, columnOffset:=6).Activate
Selection.Copy
Windows("DAILY OPERATIONS_2004.xls").Activate
Range("K10").Select
ActiveSheet.Paste


---
Message posted from http://www.ExcelForum.com/