On 18 Feb, 20:50, Gord Dibben <gorddibbATshawDOTca wrote:
You sure you want to pop up a msgbox for each cell?

For Each cell In ActiveSheet.UsedRange.Cells
* * If cell.FormatConditions.Count 0 Then
* * * * MsgBox cell.Address & " is conditionally formatted"
* *End If
Next

Gord Dibben *MSExcelMVP

On Thu, 18 Feb 2010 08:15:04 -0800 wrote:
Sorry (pressed send by accident) ...

For each cell in usedrange.cells
* *if cell.formatting = conditional then
* * * *msgbox cell.addresss & " is condionally formatted"
* end if
Next

(Obviously the above code doesn't work, but merely describes what I'm
trying to achieve)

Any assistance appreciated
Thanks
John

Perfect ...thank you Gordon!