Set cell = Columns(1).Find("somevalue")
cell.value = Cells(cell.Row,"J").Value

will replace it with the contents of column J.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Archangel" wrote in message
...
Is there a way to Find a value in one cell and Replace in another cell? I
want to find a value in a column and replace a value in another column on
the
same row.

Is this possible?

Mike