Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Highlight cells above average

Sub FormatAboveAverage()     With Selection         .FormatConditions.Delete         .FormatConditions.AddAboveAverage         .FormatConditions(1).AboveBelow = xlAboveAverage         .FormatConditions(1).Interior.Color = RGB(255, 0, 0)     End With End Sub