Check for the existence of conditional formatting

[jh]

I have a mixture of 2003 / 2007 workbooks, and want to check for the
existence of condionally formatted cells using VBA, something
like .....


For each cell in used.range.cells

 

[jh]

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

 

[Gord Dibben]

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 MS Excel MVP

 

[Gord Dibben]

Forgot to mention.

You can also check for CF on a sheet by F5>Special>CF


Gord

 

[jh]

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

Perfect ...thank you Gordon!