Dim rng as Range
set rng = worksheets("Sheet1").Find("abcd")
if not rng is nothing then
rng.copy
Destination:=worksheets("Sheet2").Cells(rows.count ,1).End(xlup)(2)
End if

--
Regards,
Tom Ogilvy


"Mike Fenton" wrote in message
...
I need to have a macro find a cell and copy it's contents
to a seperate worksheet in the same workbook. The
problem I am having is that the cells are not always in
the same cell number. They vary on location depending on
how much information is placed into a textbox that may
contain paragraphs or just one line. So basically, I
need it to find out where a column is and copy it. It
has to be a macro and I have to have it this way because
of backward compatability.