Perfect! Thanks

Ivan Raiminius wrote:
Hi,

does this help?

Cells.Find(What:="Average Totals", After:=ActiveCell,
LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).entirerow.insert
shift:=xlshiftdown

Regards,
Ivan

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200605/1