Sembunyikan Row Yang Bernilai 0 (Nol)

Sembunyikan Row Yang Bernilai 0 (Nol)

Button Tampilkan =
Sub Tampilkan()
'
' Tampilkan Macro
'
    Rows("1:15").Select
    Selection.EntireRow.Hidden = False
    Range("A13").Select
End Sub

Button Sembunyikan =
Sub Sembunyikan()
Dim c As Range
For Each c In Range("A1:A15")
    c.EntireRow.Hidden = c.Value = 0
Next c
End Sub