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