EM

Try this

Sub DelRows()

Dim cell As Range
Dim FirstPrice As Boolean

FirstPrice = False

For Each cell In Range("A1:A50")
If cell.Value = "Price" Then
If FirstPrice Then
Range("a1", cell.Offset(-1, 0)).EntireRow.Delete
Exit For
Else
FirstPrice = True
End If
End If
Next cell

End Sub

--
Dick Kusleika
MVP - Excel
Excel Blog - Daily Dose of Excel
www.dicks-blog.com

"ExcelMonkey " wrote in message
...
Sorry quick caveat here. I have to delete all the rows prior to "price"
occuring twice. That is, "price" may occur in row 6 and then again in
row 13. I want to delete all the rows prior to the second occurence of
"price".

Thanks


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