Hiding rows based on criteria

[Wamhoi]

Hi,

I'm looking to create a piece of VBA code that will hide rows if column B contains the number 0. My workbook has about 4000 rows.

Thanks,

 

[Asala42]

How's this?

Sub HideZeroes()

Application.ScreenUpdating = False
Sheets("Sheet2").Activate

Dim Endrow As Long
Endrow = Range("B65536").End(xlUp).Row

For i = Endrow To 1 Step -1
    If Cells(i, 2).Value = 0 Then
       Cells(i, 2).EntireRow.Hidden = True
    End If
Next i

End Sub