Macro to change colour of cell based on finding a specific word in the cell

Hi,

I am looking for a macro that will look in a column range of G2:G500 and change the cell to red if the text in the cell reads 'Risk' but leave blank if states 'No Risk'

Many Thanks
Shelby761

Seems Conditional Formatting would be better suited to this than VBA code...

Cytop, the macro would be added to end of a current macro that collates data from 3 seperate sheets then finishing off with column G cells being coloured based on the text, I would conditionally format the report myself once I have run the macro, but its ideally for someone else to open run the macro and just print off the results without any other formatting involvement.

Sub x()

   Dim c As Excel.Range
   
   For Each c In Range("G2:G500")
      c.Font.ColorIndex = IIf(StrConv(c.Value, vbUpperCase) = "RISK", 3, xlAutomatic)
   Next
   
End Sub