Public Sub ListAllCF()
' List all conditional formatting on the current sheet. Use for troubleshooting.
Dim cf As Object ' This can multiple types such as FormatCondition/UniqueValues/Top10/AboveAverage/...
Dim ws As Worksheet
Set ws = ActiveSheet
Debug.Print "Applies To", "Type", "Formula", , "Bold", "Int. Color", "StopIfTrue"
For Each cf In ws.Cells.FormatConditions
Debug.Print cf.AppliesTo.Address,
Select Case cf.Type 'List of Types: https://docs.microsoft.com/en-us/office/vba/api/excel.xlformatconditiontype
Case 1, 2, xlExpression
Debug.Print "Expression", cf.Formula1, cf.Font.Bold, cf.Interior.Color, cf.StopIfTrue
Case 8, xlUniqueValues
Debug.Print "UniqueValues", IIf(cf.DupeUnique = xlUnique, "xlUnique", "xlDuplicate"), , cf.Font.Bold, cf.Interior.Color, cf.StopIfTrue
Case 5, xlTop10
Debug.Print "Top10", IIf(cf.TopBottom = xlTop10Top, "Top ", "Bottom ") & cf.Rank & IIf(cf.Percent, "%", ""), , cf.Font.Bold, cf.Interior.Color, cf.StopIfTrue
Case 12, xlAboveAverageCondition
Debug.Print "AboveAverage", IIf(cf.AboveBelow = xlAboveAverage, "Above Average", IIf(cf.AboveBelow = xlBelowAverage, "Below Average", "Other Average")), , cf.Font.Bold, cf.Interior.Color, cf.StopIfTrue
'--- Add your own code to support what you want to see for other types.
Case 3, xlColorScale
Debug.Print "ColorScale..."
Case 4, xlDatabar
Debug.Print "Databar..."
Case Else
Debug.Print "Other Type=" & cf.Type
End Select
Next cf
Debug.Print ws.Cells.FormatConditions.Count & " rules on " & ws.Name
End Sub
