Did you select cell AD10 of sheet 'T.S.' before you looked at conditional formatting
because that is the only cell that the C.F. is applied to in the macro...
---
"scrabtree23" wrote in ...
When I click on the sheet, then click on the cell, then
check the conditional formatting, it isn't there.

scrabtree23 wrote:
It isn't that my formula doesn't work, it is that the
conditional formatting just doesn't save???

-----Original Message-----
Hi
the following works for me:
Sub foo()
With Sheets("T.S.").Range("AD10")
.FormatConditions.Delete