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