Dim RowNdx As Long
Application.ScreenUpdating = False
LastRow = ActiveSheet.Cells(Rows.Count, "F").End(xlUp).Row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx,"F").Value < "" Then
Cells(RowNdx,"F").Entirerow.Delete
End If
Next RowNdx


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"CPower " wrote in message
...
Is there any chance you get me some code to delete a row on the basis
that a cell in one of its columns contains text. My reason for this is
that, the row is relavant if the problem report column is empty, where
as if it has some text in it like CYUFR1234 it must be deleted from the
spreadsheet.

Thanks again,
Cathal.


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