Cells.FormatConditions.Delete
Range("C1:G1").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A1=2"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
ExecuteExcel4Macro "(2,1,""0.00"")"
Selection.FormatConditions(1).StopIfTrue = False