hey all

I want to find a value in a worksheet and then delete 5 lines unde
every occurance of the value.

I have been toying with:

For Count = 1 To *x*

Range("A1").Select
Cells.Find(What:="Report", After:=ActiveCell, LookIn:=xlFormulas
_
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext
_
MatchCase:=False).Activate
ActiveCell.Rows("1:5").EntireRow.Select
Selection.Delete Shift:=xlUp

Next Count
End Sub

How do i find for *x*

Can someone please tell me how this can be achieved.
thank

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