Changing colour in various cells via Macro

[ghrek]

Hi

I have a workbook that has various cells in green and others in red with the word NO and also some cells that are just blank.

What im trying to do is have something that looks in the range F4 -AM82 and if the cell colour is red with the word NO I need it changed back to a blank green cell.

Can this be done?

 

[shinigamilight]

Always try macros on a sample data first

Sub Coloer()
        Dim rng As Range
       
        For Each rng In Range("F4:AM82")
            If rng.Interior.Color = vbRed And UCase(rng.Value) = "NO" Then
                    rng.Interior.Color = vbGreen
                    rng.value = ""
            End If
        Next rng

End Sub

 

[ghrek]

Brill

Many thanks