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

[stnkynts]

Sub Hide_0andBlank()
Dim ws As Worksheet:    Set ws = Sheets("Sheet1") 'you may need to change this
Dim myRange As Range, iRange As Range

Set myRange = ws.Range("G35:G53")
Application.ScreenUpdating = False

'you may want to add a line to unhide all here.  Not sure though.

For Each iRange In myRange
    If iRange.Value = "" Or iRange.Value = "0" Then
        iRange.EntireRow.Hidden = True
    End If
Next iRange
Application.ScreenUpdating = True

End Sub