Esconder fila si todas las celdas de la fila son cero

Hola Buenos días,
quiero programar una macro para lo siguiente: Tengo tres columnas con datos, quiero que la macro lea fila a fila y si las tres celdas de la fila contienen todas cero, entonces que esconda la fila, sino no se esconde la fila y luego pase a la fila siguiente.
He escrito el siguiente código pero no funciona:
Sub Esconderfilas()
    Range("A4,B4,C4").Select
    Do While Not IsEmpty(ActiveCell)
    If ActiveCell.Value <> "0" Then
    ActiveCell.EntireRow.Hidden = False
    Else
    ActiveCell.EntireRow.Hidden = True
    ActiveCell.Offset(1).Select
    End If
    Loop
End Sub
Me puedes ayudar por favor. Gracias y un saludo.