Sub Clear_Hide_Rows_With_Zero()
FindString = "0"
Set B = Range("C:C").Find(What:=FindString, LookAt:=xlWhole)
While Not (B Is Nothing)
With B.EntireRow
.ClearContents
.Hidden = True
End With
Set B = Range("C:C").Find(What:=FindString, LookAt:=xlWhole)
Wend
End Sub


Gord Dibben MS Excel MVP

On Tue, 18 Mar 2008 19:14:42 +0200, "SANTANDER"
wrote:

I am looking for macro that will remove data from rows with zero value and
hide that rows.
For example, there is 3 columns, some rows contains data like this:

5962-9090801MVA abc CONVERTER I.C. 0.00
5962-9092701M3A 8Bit 35Msps Mil ADC 0.00
5962-9092701MXA 8Bit 35Msps Mil ADC 0.00
5962-9092702M3A 8Bit 35Msps Mil ADC 0.00

I just need search for rows like this, clear this data and hide this rows.
And the same thing for whole worksheet.

thank you.