Try this macro:

Option Explicit
Sub FindLookup()
Dim FormulaRng As Range
Dim FormulaCell As Range
Dim sFormula As String

On Error GoTo NoFormulas
Set FormulaRng = ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas)
On Error GoTo 0

For Each FormulaCell In FormulaRng
With FormulaCell
sFormula = LCase(.Formula)
If InStr(sFormula, "lookup") Then
.Interior.ColorIndex = 36
End If
End With
Next
Exit Sub

NoFormulas:
MsgBox "No formulas found!"

End Sub


---
To run, press ALT+F11, go to Insert Module, and paste
in the code above. Press ALT+Q to close. Go to Tools
Macro Macros.

HTH
Jason
Atlanta, GA

-----Original Message-----
I need to implement cell protection to all cells with
lookup formula in a
worksheet. I know GOTO-Special can highlight all the
formula cells, but I
need some way more specific to pick and highlight only
the lookup formula.
.