Bob!

thanks. I found that I could just run through the cells selecting them

....
Cells(i, j).Select
' because I use European separators...
formatCond =
Application.Substitute(Selection.FormatConditions( 1).Formula1, ";",
",")
If Selection.Parent.Evaluate(formatCond) Then
....

to get the right relative positioning for the evaluation of formula1.

Eric

On 9 Jan, 16:17, "Bob Phillips" wrote:
Not simple, but seehttp://www.xldynamic.com/source/xld.CFConditions.html

--
---
HTH

Bob