Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Formatting Cells in the Top 2 percent

Sub FormatTop12Percent()     With Selection         .FormatConditions.Delete         .FormatConditions.AddTop10         .FormatConditions(1).TopBottom = xlTop10Top         .FormatConditions(1).Value = 12         .FormatConditions(1).Percent = True         .FormatConditions(1).Interior.Color = RGB(255, 0, 0)     End With End Sub