I used this and it is not working. Any suggestions?

Set rng = Range("R5:Y8")
For Each cell In rng
If cell.Interior.Color = 4 Then cell.Value = "100"
Next


"Jacob Skaria" wrote:

Sub Macro1()
'default yellow 65535
Set rngTemp = Range("A1:A10")
For Each cell In rngTemp
If cell.Interior.Color = 65535 Then cell.Value = "4"
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Kirsty" wrote:

I want to write a macro (or formula) that allows me to place a number in a
cell if it has a certain colour, ie 4. Any suggestions?