Hi all,

I got the error message : "Unable to find property of Range class" fro
Excel VBA and I have ben looking for the bug(s) a long time, so anyon
would kindly give me a hand?

Problem tackled:
1) matchRow = Worksheets("Raw Data").UsedRange.Find(What:=poNo
LookIn:=xlFormula, LookAt:=xlWhole).Row

p.s I want to search the corresponding row with the wanted number i
another sheet.

Public Sub Mark2004Po()
Dim i As Integer
Dim poNo As String
Dim matchRow 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
Do
matchRow = Worksheets("Ra
Data").UsedRange.Find(What:=poNo, LookIn:=xlFormula
LookAt:=xlWhole).Row
If Not (matchRow Is Nothing) Then
matchRow.Interior.ColorIndex = 2
End If
Loop Until matchRow Is Nothing
End If
Next i
End Sub

Thanks in advance

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