Selektion bedingter Formate

Ich habe ein Makro geschrieben das mir alle Zeilen herausfiltert die ein rotes Feld haben. Das funktioniert auch soweit - aber -
jene Zellen die durch eine bedingte Formatierung rot wurden werden dabei leider nicht berücksichtigt.

Was ist an der Formel Falsch?

Gruß

Peter

Sub Unerledigte()
Application.ScreenUpdating = False
Range("T7:z467").Select
Selection.EntireRow.Hidden = True
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Interior.ColorIndex = 3 Then
Zelle.EntireRow.Hidden = False
End If
Next Zelle
Application.ScreenUpdating = True
End Sub