Ocultar Automaticamente (Leanlo por favor Urgente)

Gracias
Hola a Todos, por favor ayudenme con lo siguiente:

Tengo 1 Libro en donde tengo varias hojas, en cada hoja
tengo las ventas del dia con sus totales, ahora necesito
ocultar por la suma de Totales de cada hoja (ojo que puede
variar la columna de totales en cada hoja), que si me da
cero se me oculte toda la fila correspondiente a ese item
y si es mayor a cero que no haga nada, esto debe de ser en
forma automatica. Estoy usando un codigo pero solo me
funciona con una sola hoja y no con todas las hojas.
El codigo que utilizo es el sgte.:

Private Sub Worksheet_Calculate()
Dim Fila As Integer
Application.ScreenUpdating = False
For Fila = 2 To 380
With Me.Range("au" & Fila)
If .Value > 0 Then .EntireRow.Hidden = False
Else .EntireRow.Hidden = True
End With
Next
End Sub

Gracias por su ayuda.

Edison