If thats what's being done then

Dim FindString as String
FindString = Activecell.Text
Windows("Updated Consumer Acc List 2005_02_15.xls").Activate
Cells.Find(What:=FindString, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=
_
xlNext, MatchCase:=False).Activate

--
Regards,
Tom Ogilvy

wrote in message
...
hi tom,
yes it does... i think. I think she's pasting into the
input box.

-----Original Message-----
The code you show doesn't involve any pasting into
Find/Replace.

--
Regards,
Tom Ogilvy

"StephanieH" wrote
in message
...
I have the following set up to copy data from one
workbook, search for
that
data in another workbook (I'm not replacing the data,
but moving over 2
cells
and continuing...)
I'd like for it to search for the data without
requiring my to paste into
Find/Replace. Is this possible?

Dim FindString As String
Dim Rng As Range


Application.CutCopyMode = False
Selection.Copy
Windows("Updated Consumer Acc List
2005_02_15.xls").Activate

FindString = InputBox("Enter a Search value")
Cells.Find(What:=FindString, After:=ActiveCell,
LookIn:= _
xlFormulas, LookAt:=xlPart,
SearchOrder:=xlByRows,
SearchDirection:= _
xlNext, MatchCase:=False).Activate



.