Hi, I am trying to format a sheet with three conditional formats but when I
get to the second Conditional Format it is overwrighting previous conditional
format.
I don't understand why this is happening. Anyone any ideas? Code added
below.

Cells.Select
Range("A12").Activate
Application.CutCopyMode = False
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=$B$66"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 5
End With
'Cells.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual,
Formula:="=$F$66"
' Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=$F$66"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = xlAutomatic
End With

Thanks in advance.
Davie

When you add the second conditional format, you have the statement
With Selection.FormatConditions(1).Font

This is referring to the first format . You need to change it to
With Selection.FormatConditions(2).Font

to refer to the second format.

Hope this helps,

Hutch

"davethewelder" wrote:

> Hi, I am trying to format a sheet with three conditional formats but when I
> get to the second Conditional Format it is overwrighting previous conditional
> format.
> I don't understand why this is happening. Anyone any ideas? Code added
> below.
>
> Cells.Select
> Range("A12").Activate
> Application.CutCopyMode = False
> Selection.FormatConditions.Delete
> Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
> Formula1:="=$B$66"
> With Selection.FormatConditions(1).Font
> .Bold = True
> .Italic = False
> .ColorIndex = 5
> End With
> 'Cells.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual,
> Formula:="=$F$66"
> ' Selection.FormatConditions.Delete
> Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
> Formula1:="=$F$66"
> With Selection.FormatConditions(1).Font
> .Bold = True
> .Italic = False
> .ColorIndex = xlAutomatic
> End With
>
> Thanks in advance.
> Davie

Doh!! So simple to fix. I must have had too much beer last night.

Thanks Tom.

"Tom Hutchins" wrote:

> When you add the second conditional format, you have the statement
> With Selection.FormatConditions(1).Font
>
> This is referring to the first format . You need to change it to
> With Selection.FormatConditions(2).Font
>
> to refer to the second format.
>
> Hope this helps,
>
> Hutch
>
> "davethewelder" wrote:
>
> > Hi, I am trying to format a sheet with three conditional formats but when I
> > get to the second Conditional Format it is overwrighting previous conditional
> > format.
> > I don't understand why this is happening. Anyone any ideas? Code added
> > below.
> >
> > Cells.Select
> > Range("A12").Activate
> > Application.CutCopyMode = False
> > Selection.FormatConditions.Delete
> > Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
> > Formula1:="=$B$66"
> > With Selection.FormatConditions(1).Font
> > .Bold = True
> > .Italic = False
> > .ColorIndex = 5
> > End With
> > 'Cells.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual,
> > Formula:="=$F$66"
> > ' Selection.FormatConditions.Delete
> > Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
> > Formula1:="=$F$66"
> > With Selection.FormatConditions(1).Font
> > .Bold = True
> > .Italic = False
> > .ColorIndex = xlAutomatic
> > End With
> >
> > Thanks in advance.
> > Davie