schleife bleibt hängen bei Zelle mit Formel

Sub alles_leeren_gelb()
Dim wks As Worksheet
'Änderungen ausblenden
Application.ScreenUpdating = True
'Berechnung ausschalten
Application.Calculation = xlManual
For Each wks In Worksheets
If ActiveSheet.Name <> "Pers-Übersicht" Or ActiveSheet.Name <> "Pers_Planung" Then
'Blatt auswählen
wks.Select
For h = 9 To 20
For i = 7 To 6000
'Abfrage nach ausfüllen
If Cells(i, h).Interior.ColorIndex = 6 And Cells(i, h) <> "" Then
Cells(i, h).Select
Cells(i, h).ClearContents
Else
End If
Next i
Next h
End If
Next wks
'Änderungen einblenden
Application.ScreenUpdating = True
'Berechnung einschalten
Application.Calculation = xlAutomatic
End Sub