macro to find something in column A and delete 5 rows below it


suppose i have bank name in that excel file and i want that a macr
should loop through whole of the file and whenever it finds bank nam
in column A it deletes that entire row and 4 rows below it

please help
i will be thankfu

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

HTH

Sub del5()
For Each cel In Range(Range("A1"), Range("A65536").End(xlUp))
If cel.Value = "bank" Then
Range(cel, cel.Offset(4, 0)).EntireRow.Delete
End If
Next
End Sub


vikram < wrote:

macro to find something in column A and delete 5 rows below it


suppose i have bank name in that excel file and i want that a macro
should loop through whole of the file and whenever it finds bank name
in column A it deletes that entire row and 4 rows below it

please help
i will be thankful


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