Makro til skjul rækker bliver langsom efter et par gange

Nedenstående makro bliver langsom efter et par gange.
Den bliver hentet ved aktivering af bestemt ark via call funktion. Nogen der har et bud?

Public Sub Skjul_f()
    For Each c In Range("f11:f28").Cells
        If c.Value = 0 Then
            Rows(c.Row).Hidden = True
        Else
            Rows(c.Row).Hidden = False
        End If
    Next
    For Each c In Range("f36:f53").Cells
    If c.Value = 0 Then
            Rows(c.Row).Hidden = True
        Else
            Rows(c.Row).Hidden = False
        End If
    Next
End Sub