This will display a list of all the ranges in the active workbook that contain conditional formatting

Sub ListAllConditionalFormats() 
Dim oWsh As Worksheet
Dim oFormatCondition As FormatCondition
Dim lwshcount As Long
Dim lcount As Long

    For lwshcount = 1 To ActiveWorkbook.Sheets.Count
        Set oWsh = Sheets(lwshcount)
        For lcount = 1 To oWsh.Cells.FormatConditions.Count
            Set oFormatCondition = oWsh.Cells.FormatConditions(lcount)
            Debug.Print oWsh.Name & " - " & oFormatCondition.AppliesTo.Address
        Next lcount
    Next lwshcount
End Sub

© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited TopPrevNext