[Χρήστος]

Φίλε Σπύρο....ευχάριστο που "μελετάς" τους προτεινόμενους κώδικες...όμως ο κώδικας που αναφέρεσαι αποτελεί "πρόχειρο" για μένα ... δεν εκτελείται στο αρχείο μου....

Ο κώδικας που τρέχει είναι αυτός:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim fCell As Range
If Not Intersect(Target, Range("E4:E13")) Is Nothing Or Not Intersect(Target, Range("K2:K4")) Is Nothing Then

For Each fCell In Range("E4:E13")
fCell.Interior.ColorIndex = 0
If fCell.Value <> Range("K2").Value Then
fCell.Interior.ColorIndex = Range("K3").Value
End If
If fCell.Value = 0 Then
fCell.Interior.ColorIndex = Range("K4").Value
End If
Next fCell
End If
End Sub

Σ' αυτόν το κώδικα....κάθε παρατήρηση καλοδεχούμενη...και θα με κάνει καλύτερο.....

Επαλήθευσέ το σε παρακαλώ ώστε να επανέλθεις!! Είμαι σίγουρος για την καλή σου πρόθεση!!