[excel] macro couleur

bonjour,

voici mon problème:
j'utilise sur une feuille de calcul un
Private Sub WorkBook_BeforeClose(Cancel As Boolean)

je tiens, par exemple, à empêcher la fermeture si certaines cellules ont une couleur définie, ex:
If Range("XXX").Interior.ColorIndex = x Then
Cancel = True
MsgBox "xxxxxxx"
End If
End Sub

Malheureusement, cela ne fonctionne pas!!!
j'ai essayé également avec .font.colorindex sans autre forme de résultat

peut-on jouer sur les couleurs d'une cellule ou pas???
merci d'avance pour une réponse d'une âme charitable ;-)
Mathieu