Malcolm, thanks for the reply but that fails at the line you gave: myF = Split(oCell.FormatConditions(1).Formula1, "=")(1) * 1
the error is Application defined or object defined error.
[VBA]Dim Rng1a As Range, MyCell As Range
Dim oCell As Range, mf As Long
Application.ScreenUpdating = False
ic = 0
Workbooks.Open (ThisWorkbook.Path & "\feed reasons.xls")
ThisWorkbook.Activate
Sheets("24HR Summary").Visible = True
Sheets("24HR Summary").Activate
ActiveSheet.Unprotect Password:="Feedmgmnt"
Set Rng1a = ActiveSheet.Columns(1).Find(What:=RL, After:=ActiveSheet.Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
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)
myF = Split(oCell.FormatConditions(1).Formula1, "=")(1) * 1
If oCell > myF Then
MsgBox MyCell.Address & " - " & MyCell.Value
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
Workbooks("feed reasons.xls").Close True
If ic = 0 Then GoTo NT
Call explanation
NT:[/VBA]