difficulty writing code for changing font color if cell contains specific text

curbster,

Try:

Sub FindS_C_OinAD()
Dim c As Range, LR As Long, a As Long
For Each c In Range("AD2", Range("AD" & Rows.Count).End(xlUp))
  If UCase(c.Value) = "C" Or UCase(c.Value) = "S" Then
    Range(Cells(c.Row, 1), Cells(c.Row, 39)).Font.ColorIndex = 3
    Range("L" & c.Row) = Range("L" & c.Row) * -1
  End If
Next c
LR = Cells(Rows.Count, "AD").End(xlUp).Row
For a = LR To 2 Step -1
  If UCase(Cells(a, "AD").Value) = "O" Then
    Rows(a).EntireRow.Delete
  End If
Next a
End Sub