Hi JMax

Try this one
http://www.rondebruin.nl/delete.htm


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"JMax " wrote in message ...
I am quite stuck to say the least. I have this file about 13K rows that
was exported from Fox Pro. In order to manipulate it, I need to delete
every (entire) row that contains the text 'Store Totals for:' At first
I thought I needed to delete every 5th row but that was not what I
needed nor did it work.....The text is in column A. Any help would be
appreciated.


Sub DeleteRows()
Dim cell As Range
Dim ICol As Integer
Dim IRow As Integer
Dim myRange As Range

ICol = Range("A1").End(xlToRight).Column
IRow = Range("A1").End(xlDown).Row
Set myRange = Range(Cells(1, 1), Cells(IRow, ICol))

For x = IRow To 2 Step -1
Set cell = Range("A" & x)
cell.Select
If cell.Value = cell.Offset(5, 0).Value Then
cell.EntireRow.Delete
End If
Next x
End Sub


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