Hi Simon,

I still think it works. When I tested the code on a non CF cell I get an error. I think that you have to re-set MyOp each time it finds a CF cell otherwise it will remain 3 and the test will give wrong results. Ex:


[VBA]
For Each MyCell In Sheets("24HR Summary").Range(Rng1a.Offset(0, 2).Address & ":" & _
Cells(Rng1a.Row, 256).End(xlToLeft).Address)
Set oCell = Range(MyCell.Address)

'//Clear the previous value (must be done in the loop)
myOp = 0

'//Allow the 'not found' error (you weren't getting one?)
On Error Resume Next

myOp = oCell.FormatConditions(1).Interior.ColorIndex

If myOp = 3 Then

'//Msgbox for testing
MsgBox MyCell.Address & " - " & MyCell.Value

'//Reset ErrorHandling to whatever you had
On Error Goto 0


ic = ic + 1



With Workbooks("feed reasons.xls").Sheets("Reasons")
.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = RL
.Range("A" & Rows.Count).End(xlUp).Offset(0, 1).Value = TL
.Range("A" & Rows.Count).End(xlUp).Offset(0, 2).Value = SM
.Range("A" & Rows.Count).End(xlUp).Offset(0, 3).Value = Cells(1, MyCell.Column).Value
End With
End If
Next MyCell

[/VBA]