Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Formatting Cells in the Bottom 5

Sub FormatBottom5Items()     With Selection         .FormatConditions.Delete         .FormatConditions.AddTop10         .FormatConditions(1).TopBottom = xlTop10Bottom         .FormatConditions(1).Value = 5         .FormatConditions(1).Percent = False         .FormatConditions(1).Interior.Color = RGB(255, 0, 0)     End With End Sub