With Range("E1:E100").FormatConditions.AddTop10 .TopBottom = xlTop10Top .Rank = 5 .Percent = False With .Font .Bold = True .ColorIndex = 3 End With End With