Seleccionar rango por color de fondo

[Granduke]

Hola:

Tengo un libro de Excel en el que lanzo un evento de calendario al posicionarme sobre unas celdas determinadas. El evento funciona muy bien, pero necesito definir el rango de celdas en el que debe de actuar. Necesito que el evento se ejecute cuando me posiciono sobre cualquier celda de la columna D y F, salvando la primera línea que es donde tengo el título de las columnas y que no lo hiciese cuando la celda es de color AZUL o BLANCA.

Esto es lo que tengo programado:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngFechas As Range

Set rngFechas = Range("D:D, F:F")

If Union(Target, rngFechas).Address = rngFechas.Address Then _
Call abrir_calendario


End Sub

Si alguien me pude ayudar se lo agredecería.

Bueno, gracias de antemano.

[yenay]

Mira a a ver así:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngFechas As Range

Set rngFechas = Range("D:D, F:F")

If (Union(Target, rngFechas).Address = rngFechas.Address) And ((Target.Interior.ColorIndex = 2) Or (Target.Interior.ColorIndex = 5)) Then _
Call abrir_calendario


End Sub

[Granduke]

Iniciado por yenay

Mira a a ver así:

Gracias funciona pero con una pequeña modificación sobre tu código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngFechas As Range

Set rngFechas = Range("D:D, F:F")
If (Union(Target, rngFechas).Address = rngFechas.Address) And ((Target.Interior.ColorIndex <> 2) And (Target.Interior.ColorIndex <> 5)) Then _
Call abrir_calendario


End Sub

Lo había solucionado de otra manera pero así es más cómodo.

Pero... ahora me surge otro problema:

Las celdas donde debe de lanzarse el evento tienen un formato condicional que hace que cambien de color al cumplirse, pero el Interior.ColoIndex es Blanco aunque la celda sea Naranja o Verde. Lo he solucionado poniendo el fondo de la celda en Negro, pero creo que eso es una chapucilla.

Alguna idea.

Gracias.