E

#### evil baby

I have to compare A2 to A1 and change A2 accordingly.

Problem is when A1 is a negative number the conditional formattin

doesn't work.

Here is my code: I'm pretty new at this so it is probably really ugly

Dim x

Range("G22").Select

Do While ActiveCell <> 0

x = ActiveCell.Offset(-1, 0).Value

'MsgBox x

'MsgBox ActiveCell.Value

If ActiveCell.Value >= (x + (x * 0.05)) Then

ActiveCell.Interior.ColorIndex = 3

ActiveCell.Font.ColorIndex = 2

ElseIf ActiveCell.Value <= (x - (x * 0.05)) Then

ActiveCell.Interior.ColorIndex = 3

ActiveCell.Font.ColorIndex = 2

ElseIf ActiveCell.Value >= (x + (x * 0.02)) Then

ActiveCell.Interior.ColorIndex = 36

ActiveCell.Font.ColorIndex = 1

ElseIf ActiveCell.Value <= (x - (x * 0.02)) Then

ActiveCell.Interior.ColorIndex = 36

ActiveCell.Font.ColorIndex = 1

ElseIf ActiveCell.Value < (x + (x * 0.02)) Then

ActiveCell.Interior.ColorIndex = 35

ActiveCell.Font.ColorIndex = 1

ElseIf ActiveCell.Value > (x - (x * 0.02)) Then

ActiveCell.Interior.ColorIndex = 35

ActiveCell.Font.ColorIndex = 1

End If

ActiveCell.Offset(0, 1).Select

Loop

End Su