How do I locate cells who have conditional formats activated?

I have a large spreadsheet that has some cells changed to RED interior. I
need to be able to find these cells using a macro or VBA.

Sub Find_CF()

Dim rng As Range
Dim cc As Range

Set rng = ActiveSheet.UsedRange
For Each cc In rng
If cc.FormatConditions.Count > 0 Then
'this cell has conditional formatting
' so handle it here

End If
Next

End Sub



"HamFlyer" wrote:

> I have a large spreadsheet that has some cells changed to RED interior. I
> need to be able to find these cells using a macro or VBA.

You can either check if a cell meets the CF criteria, or look at the
technique shown in http://www.xldynamic.com/source/xld.CFConditions.html

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"HamFlyer" <[email protected]> wrote in message
news:[email protected]...
> I have a large spreadsheet that has some cells changed to RED interior. I
> need to be able to find these cells using a macro or VBA.

Go to the Edit Menu / GoTo / Special / mark conditional format. All
your cells with CF will turn to black background and you can reformat
them while they are highlighted. ed