Loop through workbook applying two different actions to two sets of sheets

I have a multi-sheet workbook (6 sheets) and I'd like to apply two different actions to separate sheets. The issue is that the sheets are not in order...

On the sheets called "sales" "week1" "week2" "budget": whenever the font color is blue (23) then I want to enter "0" and clearcomments


On the sheets called "CRJ", "PDR": whenever the font color is blue (23) then I want to clearcontents and clearcomments


The range A1:CX100 will account for everything.. I tried to start the code but this only seems to act on the active sheet.

    For Each cell In Range("A1:CX100")
    If cell.Font.ColorIndex = 23 Then
        cell.Value = "0"
    End If
    Next