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