Funkcja zwracająca kolor wypełnienia komórki

Bardzo prosta funkcja zwracająca kolor wypełnienia komórki w postaci indexu (numeru) koloru. Jedyny mankament funkcji zwracających formatowanie komórki to, że funkcja nie zostanie przeliczona w momencie zmiany formatu komórki - zmiana formatu nie jest zdarzeniem obsługiwanym przez VBA - przynajmniej nic mi o tym nie wiadomo - jeżeli ktoś ma pomysł jak to rozwiązać - proszę o info.

Function kolorkomorki(adres As Range)

    kolorkomorki = adres.Interior.colorindex

End Function