Highlight entire row based on cell value

Originally Posted by JBeaucaire

That should be Criteria1:=, sorry, forgot the 1.

Well, I forgot about that column K stuff. We'll have to build a loop and check them all.

Dim Data As Range, cell As Range
Dim m As Long, n As Long

Set Data = Range(Cells(1, 5), Cells(Rows.Count, 5).End(xlUp))
    For Each cell In Data.Cells
      Select Case Left(cell.Value, 3)
        Case "995"
            cell.EntireRow.Cut
            ActiveSheet.Paste Sheets("CCY").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        Case "9FF"
            cell.EntireRow.Cut
            ActiveSheet.Paste Sheets("Futures").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
      End Select
    Next Cll

Sheets("CCY").Activate
Set Data = Range(Cells(1, 3), Cells(Rows.Count, 3).End(xlUp))
    For Each cell In Data.Cells
        If Cells.Value Like "*CRL*" Then
            cell.Font.Italic = True
            If cell.Offset(0, 8) > -1 And cell.Offset(0, 8) <= 100000 Then _
                cell.EntireRow.Interior.ColorIndex = 4
        End If
    Next cell
  
End Sub

Ok, I ran it and it only highlighted the column headers rather than highlighting those rows where it found CRL. What should I tweak?