Hi, I know little about VBA, so I've recorded a macro and pasted (see below)
it into the VBA window. It works great as a macro, but won't work when I run
it in VBA. I end up with Run-time error '1004'.

This VBA code will work fine on a different worksheet, but not on this
"Progress" sheet. I've tried everything I can think of but can't get it to
run. The term "bottomofaddnewrows" does exist, and can be found by the
macro.

Any help would be appreciated.

Harold

============================
Sheets("Progress").Select
Cells.Find(What:="bottomofaddnewrows", After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate