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