The Following code removes all formats in a selected
range:-

"Selection.FormatConditions.Delete"

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

"Selection.FormatConditions(2).Delete

Thanks
Alec


..

Alec, the code worked for me

Do you get a subscript out of range error? If so, are you
sure there are 2 format conditions?



-----Original Message-----
The Following code removes all formats in a selected
range:-

"Selection.FormatConditions.Delete"

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

"Selection.FormatConditions(2).Delete

Thanks
Alec


..


.

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

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
.