Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=etCellValue, Operator:=etLess, Formula1:="0" Selection.FormatConditions.Item(1).Interior.Color = 255