select the data, do data =filter=Autofilter

in the dropdown for D, select zero.

select all the records (except the header row) and delete

if you need code, turn on the macro recorder while you do it manually.

--
Regards,
Tom Ogilvy



"Gordon" wrote:

Hi...

I have 4000 vertical records. In columns A, B and C I have product
information. In column D I have a value that ranages from 0-5. I need to
delete all rows were the value in cell D is 0 (zero). Has anyone got any
useful code? I'm stuck and my brain is bleeding!

Thanks in advance G