Hide any rows with 0 values

[tantcu]

Hi,

I have a code to hide any rows that contain 0 value or blank cells. this code will search the entire column. is there anyway that you could modify it to search at specific range like in column G but range (G53:G35)

Thanks,

Dim LRow As Long
LRow = Cells(Rows.Count, "G").End(xlUp).Row
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For x = LRow To 1 Step -1
If Cells(x, "G").Value = "0" Then
Rows(x).Hidden = True
End If
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True