Saber si hay relleno en una celda con formato condicional

Hola Grupo:

Estoy intentando saber si una celda tiene un color de relleno o no. La
siguiente función sirve si es una celda con un color dado manualmente, pero
si tiene un formato condicional no "lee" el color sin importar el relleno que
tenga.

Function ColorInt(ByVal Celda As Range) As Boolean
If Celda.Interior.Pattern <> xlNone _
Then
ColorInt = True
Else
ColorInt = False
End If
End Function

Entonces que debo hacer?.

Gracias y saludos,

Bart Max