change

Lookin:=xlFormula

to

Lookin:=xlFormulas

After that, it
worked fine for me.

--
Regards,
Tom Ogilvy

"kaon " wrote in message
...
Public Sub Mark2004Po_2()
Dim i As Integer
Dim poNo As String
Dim fAddr As String
Dim rng As Range

For i = 2 To
Worksheets("Settings").UsedRange.Columns(1).Rows.C ount
poNo = Worksheets("Settings").Cells(i, 1).Value
If Not IsEmpty(poNo) Then
With Worksheets("Raw Data").UsedRange
***Set rng = .Find(What:=poNo, LookIn:=xlFormula,
LookAt:=xlWhole) ***
If Not rng Is Nothing Then
fAddr = rng.Address
Do
rng.EntireRow.Interior.ColorIndex = 2
Set rng = .FindNext(rng)
Loop While rng.Address < fAddr
End If
End With
End If
Next i
End Sub


Thanks both of you but I have tackled another problem on the line
marked with *** and message shows on the screen: "Unable to get the
Find property of the Range Class."


---
Message posted from http://www.ExcelForum.com/