hi,
yes it is possible by creating a variable which you
already have.
Dim FindString As String
Dim Rng As Range
Application.CutCopyMode = False
'Selection.Copy
'Instead of selection.copy set FindString to equal the
'activecell. if you are using the selection.copy command
'then that is telling me you have found what you want to
'copy so selection is the current(active)cell.
'since your are not coping the data, after you find the
'date on the other sheet, just turn it around
'Activecell.value = FindString
'this would be the same as paste. so you have copied and
'pasted without using the clipboard by creating a variable,
'assign it a value then assinged the value to another
'cell.
FindString = Activecell.value
Windows("Updated Consumer Acc List2005_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
-----Original 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

.