Hi,

Maybe this

Sub CheckColour()
For Each c In Range("F75:F100")
If c.Resize(, 15).Interior.ColorIndex = xlNone Then
c.Offset(, -1).Interior.ColorIndex = 5
End If
Next
End Sub

Mike

"CR" wrote:

Could someone please show me the code, I still have trouble setting up a
simple loop.
I have tried to adapt other code I have, but no luck.

In a range E75:T100

If the cells in F75 to T75 have a colorindex value of xlNone then
Cell E75 has a colorindex value = 5

Do the next row

Thank you