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 WithAny ideas how these can be represented in Foxpro?