A thousand pardons..... my bad. Should have been;

For r = 10 To 1 Step -1
If LCase(Trim(Cells(r, 2).Text)) = "abc:" Then
Rows(r & ":" & r).EntireRow.Delete
End If
Next


--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"Ed" wrote:
| Still no luck. Here is the problem in words.
|
| I down loaded to excel a list of purchases from a suppliers website
| resulting in a table of six columns and 90 rows. Number of rows
| increases over time.Columns are constant headed - Part# -
| Description. - Quantity - Unit Price - Total Price - Requisitioner.
|
| The problem is that the excel table Includes rows showing only
| supplier information that I want to delete such as rows with only abc:
| in one column, the rest of the row blank.
|
| When I run your macro, allrows are deleted.