Nigel

Thanks for the tip, you are quite right, the
line "Selection.FormatConditions(2).Delete " does work,
provided that the selection is already formatted, I was
testing it on an unformatted cell and it was throwing an
error.

Thanks
Alec





-----Original Message-----
Alec wrote
How do I modify it to remove format condition 2, the
following does not work:-

"Selection.FormatConditions(2).Delete


This should work. I tested it using this procedu
sub test()
'Remove any exsisting conditons on the selection
Selection.FormatConditions.Delete
'Add three new conditons. 3 is the maximum allowed
Selection.FormatConditions.Add xlCellValue,
xlLess, "=$A$1"
Selection.FormatConditions(1).Font.ColorIndex = 3 'Red
Selection.FormatConditions.Add xlCellValue,
xlNotEqual, "=$B$1"
Selection.FormatConditions(1).Font.ColorIndex =
6 'Yellow
Selection.FormatConditions.Add xlCellValue,
xlGreater, "=$c$1"
Selection.FormatConditions(1).Font.ColorIndex =
54 'Purple

'Comment the next line out to prove
Selection.FormatConditions(2).Delete works
'If the values of A1 = 1, B1 = 2 , C1 = 3 and this
macro is run with A2
'selected an input of 2 will either make the font
yellow or not depending on
'wether FormatConditions(2).Delete has run.
Selection.FormatConditions(2).Delete
end sub

HTH
Nigel
.