Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="=SI(wksht.Cells(k+4, m) <>"";SI(wksht.Cells(k+5, m)<>"";wksht.Cells(k+4, m)-wksht.Cells(k+5, m);10000);10000))"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=SI(wksht.Cells(k+4, m) <>"";SI(wksht.Cells(k+5, m)<>"";wksht.Cells(k+4, m)+wksht.Cells(k+5, m);10000);10000))"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(2).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(2).StopIfTrue = False