This is the updated macro.

Subv MatchValues()

with Sheets("sheet1")
Original Source: The Code Cage Forums Lastrow = .Range("C" &
Rows.count).end(xlup).row
For RowCount = 3 to Lastrow
SearchData = .Range("C" & RowCount)
DataH = .Range("H" & RowCount)
DataJ = .Range("J" & RowCount)

with Sheets("sheet2")
set c= .columns("E").find(what:=SearchData, _
lookin:=xlvalues,lookat:=xlwhole)
if c is nothing then
msgbox("Could Not find : " & SearchData)
else
.Range("A" & (c.row + 4)) = DataJ
.Range("J" & c.row) = DataH
end if
end with
next RowCount

end with

End sub


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=170784

Microsoft Office Help