Opdater formatteringsregler xlCellTypeAllFormatConditions

Godeftermiddag

Jeg har et regneark med rigtig mange betingede formatteringsregler i.
Når betingelserne er opfyldt faver de en celle Rød.

Jeg kunne godt tænke mig at gennemløbe alle reglerne og opdatere dem, således at de fremover faver cellen grøn

Jeg har skrevet denne procedure, men den fejler hele tiden på "Der blev ikke fundet nogen celler"

Kan I se hvad der skal til for at nå I land med denne?

Public Sub ChangeRules()
Dim ws As Worksheet
  For Each ws In ActiveWorkbook.Worksheets
 
        ws.Activate
        Dim r As Range

        Set r = ws.UsedRange.specialCells(xlCellTypeAllFormatConditions)
        r.Interior.ColorIndex = 33
   
    Next
   
End Sub

PÅ forhånd tak