Tabellenreiter färben mit bedingter Formatierung

Sub Auto_Open()
Dim objWorksheet As Worksheet
For Each objWorksheet In ThisWorkbook.Worksheets
If objWorksheet.Cells(17, 11).Interior.Color = 3 Then
objWorksheet.Tab.ColorIndex = 3
ElseIf objWorksheet.Cells(17, 11).Interior.ColorIndex = 10 Then
objWorksheet.Tab.ColorIndex = 10
Else
objWorksheet.Tab.ColorIndex = xlNone
End If
Next
End Sub

Soweit funktioniert es, aber nur, wenn die Zelle direkt "Rot" formatiert ist, aber NICHT, wenn sie via der bedingten Formatierung rot wird...
Bräuchte mal eure Hilfe, hab aber keine Ahnung von VBA...
Vielen Dank, Taratze