Office: (Office 2010) VBA Zeilen ausblenden v. mehren akt. Arbeitsmappen m. best. Wert in Zelle, Laufzeit

Liebes Office-Team,

ich habe eine VBA-Formel hinterlegt die mir die Zeilen von 10 bis 59 ausbldenden soll bei einem Wert größer 0 in Spalte P und das in mehrer aktiven Arbeitsmappen gleichzeitig. Die Anwendung hat am Anfang sehr gut funktioniert, nur jetzt benötigt diese einen großen Anteil der CPU und die Dauer liegt bei 15-20 Dateien bei ca. 5 bis 10 Minuten. Kann mir jemand Helfen was in der Fornel vielleicht falsch ist weil die Berechnung so lange dauert!

Besten Dank im Voraus
Richard

Meine VBA

Sub AusblendenZeilen()


Dim i As Integer

Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In ActiveWindow.SelectedSheets
ws.Activate
With ActiveSheet
For i = 10 To 59
If .Cells(i, 16) = 0 Then .Rows(i).Hidden = True

Next i
End With
Next ws

Application.ScreenUpdating = True

End Sub