Report for Conditionally Formatted Cells

[Sige]

Hi There,

Is there anybody who has a routine available that creates a report for
my active sheet / workbook that says on which cells conditional
formatting has been applied. Possibly with the conditions applied for
those cells?

Looking forward,

Sige

[Nicky]

Hi,
listing all the format conditions may be a bit complicated, as there are so many permutations.

This macro will return a simple list of all cells in the active sheet's used range with conditional formats (note cells outside the usedrange will not be picked up):

Sub show_conditional_cells()
cczz = ""
n = 0
For Each cc In ActiveSheet.UsedRange.Cells
If cc.FormatConditions.Count > 0 Then

cczz = cczz & cc.Address & " "
n = 1 + n

End If
Next
cczz = Trim(cczz)
If cczz = "" Then MsgBox ("no conditional formats on this sheet") Else MsgBox "there are " & n & " cells with conditional formats on this sheet: " & cczz

End Sub

[SIGE]

Hi Nicky,

Thanks for your code!!!
I will have to find a way to get the conditions for the formatting still
...
Suggestions welcome!

Cheers Sige
"NOSPAM" to be removed for direct mailing...

*** Sent via Developersdex http://www.developersdex.com ***

[dominicb]

Good afternoon Sige

There is a utility in John Walkenbachs Power Utility Pak that will do just this. It costs $40 but you can download an evaluation version that will work unrestricted from his site. Once installed go to PUP v6 > Auditing Tools > Conditional Formatting Report.

http://j-walk.com/ss/pup/pup6/index.htm

HTH

DominicB