Hide Rows Where Column A = Zero

[Anne Troy]

But NOT where Column A is blank!

Option Explicit
Sub HideRowsWithZeros()
Dim ws As Worksheet
Dim c As Range
Dim rngRange As Range
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
    ws.Select
    Set rngRange = Range(Cells(1, 1), Cells(65336, 1).End(xlUp))
    For Each c In rngRange
        If c.Value = 0 Then
            c.EntireRow.Hidden = True 
        End If
    Next c
Next ws
Application.ScreenUpdating = True
End Sub

And is this the best way to do it?