Public Sub Mark2004Po_2()
Dim i As Integer
Dim poNo As String
Dim fAddr As String
Dim rng As Range

For i = 2 T
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 lin
marked with *** and message shows on the screen: "Unable to get th
Find property of the Range Class.

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