[Spirosgr]

Να ένας κώδικας που κάνει μορφοποίηση:

Ό,τι δεν είναι 2005 ή κενό «βάφεται» κίτρινο...

Option Explicit
_____________________
Const iYear = "2005"
Const iColor = "6"
_____________________
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, c As Range
'Περιοχή που θα μορφοποιηθεί, ονομασία iRange
Set rng = Range("iRange")
'Έλεγχος
If Intersect(Target, rng) Is Nothing Then Exit Sub
'Loop
For Each c In rng
If c.Value <> iYear And c.Value <> vbNullString Then
c.Interior.ColorIndex = iColor
Else
c.Interior.ColorIndex = xlNone
End If
Next c
End Sub

Σημείωση:
1
Αν αλλάξει το 2005 ή το χρώμα αλλάζουν μόνο οι σταθερές.
Δεν «ψάχνω» στον κώδικα να δω που τα έγραψα...
2
Να επαναλάβω, ότι δεν χρειάζεται κώδικας, για κάτι τόσο απλό...