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
