VBA - betinget ændring af farve i celle?

Kabbak hjalp mig i går med at lave kode i VBA så der ikke kan skrives i en celle, medmindre en anden er udfyldt. Nu vil jeg gerne have at de celler der ikke kan skrives i er grå, de der kan skrives i uden farve. Jeg kan lave det med betinget formattering, men så ryger VBA koden?

Her er kabbaks kode:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("O:O")) Is Nothing Then
O = Target.Offset(0, 2) & Target.Offset(0, 4) & Target.Offset(0, 6) & Target.Offset(0, 8)
If Len(O) = 0 Then
MsgBox "Du skal vælge i kolonne Q, S, U eller W først"
Target.Offset(0, 2).Select
End If
End If
End Sub

Har efterhånden uendelig stor  tillid til jer herinde :-)