Cells.find help

[erikkeith via OfficeKB.com]

I am trying to do this. Once I run this command:

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

It will activate whatever cell it finds "Average Totals" in. Once this
happens I want the macro to take that row and make it active so I can insert
a row. How can I do it?

 

[Ardus Petus]

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

HTH

 

[Ivan Raiminius]

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

 

[erikkeith via OfficeKB.com]

Perfect! Thanks

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