Referencia de una celda

Que tal, buen dia a todos

Tengo un problemita, no tengo idea si es que se pueda hacer, pero expongo el
problema:

Hice una funcion bastante sencilla en un modulo, es un simple CASE que
evalua una cantidad, algo asi:

function miFuncion(fDato as integer) as string
Select case fDato
case 1 to 10
miFuncion = "Muy Mal"
case 11 to 20
miFuncion = "Mal"
case 21 to 30
miFuncion = "Regular"
case 31 to 40
miFuncion = "Bien"
case > 40
miFuncion = "Muy Bien"
end select
end function

Esta funcion la utilizao varias veces en diferentes hojas del libro.
Lo que necesito hacer, es que las celdas que contienen la formula, se
coloreen segun el resultado de la evaluacion, es algo asi como un formato
condicional, pero aqui son 5 colores. El problema es que no sé si sea posible
saber que celda contiene la funcion miFuncion, no se si sea posible algo asi:

function miFuncion(fDato as integer) as string
Select case fDato
case 1 to 10
miFuncion = "Muy Mal"
estacelda.Interior.ColorIndex = 3
case 11 to 20
miFuncion = "Mal"
estacelda.Interior.ColorIndex = 7
case 21 to 30
..
end select
end function.

¿Es posible?, esta formula esta en varias celdas del libro, y en cualquier
momento pueden cambiar de renglon si es que se agregan renglones...

El punto es que si el resultado cambia, el color que se asigna tambien cambie.

Espero haberme explicado, y espero que se pueda o alguien tiene alguna idea

Muchas Gracias!!!