Conditional Format-apply to every row

**hassankhan** · 08-13-2009, 12:28 AM

The format code is


Sub highlight()
    Range("A12:F12").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A$6=$E$12"
    Selection.FormatConditions(1).Interior.ColorIndex = 27
End Sub

I just need this to apply to every row from a12:f12 to a:512 to f512. I cant drag format since it needs to apply to individual row

**shg** · 08-13-2009, 12:43 AM

It's a little hard to guess what you're trying to do. Maybe this:

Sub highlight()
    With Range("A12:F512").FormatConditions
        .Delete
        .Add Type:=xlExpression, Formula1:="=$A6=$E12"
        .Item(1).Interior.ColorIndex = 27
    End With
End Sub