Specifying an Icon Set
Sub Main() With Range("A1:C10") .FormatConditions.Delete .FormatConditions.AddIconSetCondition ' Global settings for the icon set With .FormatConditions(1) .ReverseOrder = False .ShowIconOnly = False .IconSet = ActiveWorkbook.IconSets(xl5CRV) End With End With End Sub