Snasui Excel Forum

Code: Select all

Public strOldValue As String
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
    strOldValue = Target.Value
End Sub
Public Sub Worksheet_Change(ByVal Target As Range)
    Dim strNewValue As String
    If Target.Column = 2 Then
        strNewValue = Target.Value
        If strOldValue > strNewValue Then
            Target.Interior.ColorIndex = 3
            Else
          If strOldValue < strNewValue Then
             Target.Interior.ColorIndex = 4
             Else
             Target.Interior.ColorIndex = 0
        End If
    End If
End If
End Sub