Thanks much Ron..........unfortunately I have to work with Excel97 here.
But, I've downloaded your Add-in and will put it to good use at home.

Thanks again,
Vaya con Dios,
Chuck, CABGx3



"Ron de Bruin" wrote:

For a Add-in solution see
http://www.rondebruin.nl/easyfilter.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl



"CLR" wrote in message
...
Thanks ever so much Guys....Paul B, Jason, and JE.......all three worked
fine-fine-superfine. I think I will go with Jason's tho, because it seems
to
work with either numbers or case-senitive text.

Thanks again for the rapid and working responses......any one of which
would
have served me, but it's always nice having a choice.

Vaya con Dios,
Chuck, CABGx3


"CLR" wrote:

Hi All......

I got this from a search of this group, and it works fine.

Hi Lawlerd, this code was posted by Frank Kabel, it should do what you
you need, it will delete every row with the word 'total' in column A...

Sub delete_rows()
Dim RowNdx As Long
Dim LastRow As Long
LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "A").Value = "total" Then
Rows(RowNdx).Delete
End If
Next RowNdx
End Sub

My question is, can it be modified to give me a pop-up requesting a value
to
search for and delete the rows containing it, instead of a hard-coded
"total"?

Many TIA's
Vaya con Dios,
Chuck, CABGx3