carg

Dim Term As String
Term = Selection.Value
Cells.Find(What:=Term, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

Gord Dibben Excel MVP

On Thu, 18 Nov 2004 10:47:31 -0600, carg1
wrote:


I'm trying to make a macro that copies the contents of a cell, pastes it
into the find dialog box, then searches for whatever was pasted. I
started it with a recording then tweaked it. Unfortunately, I came to
realize I'm not quite sure how to tell it to paste the copied data into
find. Any ideas? Here's my code:

Dim Term

Term = Selection.Copy
Cells.Find(What:="Term", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False).Activate