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