Dim Stara_Vrijednost

Private Sub Worksheet_Change(ByVal Target As Range)
Nova_Vrijednost = Target.Value

If Stara_Vrijednost <> Nova_Vrijednost Then
Target.Interior.ColorIndex = 37
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value <> Empty Then
Stara_Vrijednost = Target.Value
End If
End Sub