Hi,

You are close to the wanted code:

Sub Macro_In()
Dim c As Range

For Each c In Range(Cells(4, ActiveCell.Column), Cells(56,
ActiveCell.Column))
If c.Interior.ColorIndex = 2 Or c.Interior.ColorIndex < 0 And
Len(c) = 0 And c.FormulaR1C1 = "" Then
c = "IN"
End If
Next c

End Sub


Hoop That Helps,


Wouter Magré