> Range("B4:B8").Select > With Selection.FormatConditions(1) > .MinPoint.Modify newtype:=xlConditionValueLowestValue > .MaxPoint.Modify newtype:=xlConditionValueHighestValue > End With > With Selection.FormatConditions(1).BarColor > .Color = 8700771 > .TintAndShade = 0 > End With >>
*** Assume that oExcel is your reference to Excel.Application oExcel.Range("B4:B8").Select With oExcel.Selection.FormatConditions(1) .MinPoint.Modify(1) && xlConditionValueLowestValue .MaxPoint.Modify(2) && xlConditionValueHighestValue EndWith With oExcel.Selection.FormatConditions(1).BarColor .Color = 8700771 .TintAndShade = 0 EndWithNOT TESTED!