Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Formatting Cells in the Top 10

Sub FormatTop10Items()     With Selection         .FormatConditions.Delete         .FormatConditions.AddTop10         .FormatConditions(1).TopBottom = xlTop10Top         .FormatConditions(1).Value = 10         .FormatConditions(1).Percent = False         .FormatConditions(1).Interior.Color = RGB(255, 0, 0)     End With End Sub