Delete rows

[ExcelRoy]

hi guys,

i am looking to modify some code. I have used macro recorder to get the following code

Cells.Find(What:="game stats", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveWindow.SmallScroll Down:=6

what i need is to delete the row containing "game stats" and the next 20 rows aswell

but this code runs more than once, so i need code to specify the rows

hope this makes sense

dont need the scroll down bit either

thanks

 

[Andrew Poulsom]

Try:

ActiveCell.Resize(21).EntireRow.Delete

 

[ExcelRoy]

Thats works perfectly

Thanks Andrew