Cara Sembunyikan Row Jika Nilainya 0

Berikut cara menyembunyikan row jika nilai cell 0

Sub hide_rows()
Dim c As Range
For Each c In Range("c2:c100")
    c.EntireRow.Hidden = c.Value = 0
Next c
End Sub

silahkan kembangkan sendiri yah.....