Find and Replace Cell colour

[nagovind]

Dear All,
Kindly advise the code to find the cells that are with the specified colour and then replace the Colour shade of a cell with the selected colour
Example
The Below code does the job of manually selecting the cells. How to automate the same with a code for a sheet without selecting any cells

Sub C1()

    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 11433822
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

End Sub
Sub C2()
 
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 19444052
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

End Sub

 

[vletm]

nagovind
Something like this ... if only usedrange

Sub Do_It()
    With ActiveSheet
        For Each c In .UsedRange
            If c.Interior.Color = 11433822 Then c.Interior.Color = 19444052
        Next
    End With
End Sub

 

[nagovind]

Thank you very much.