search and copy

[jjohn]

Without moving the cursor from the active cell, I need a
code that will look across Row 1 in Sheet2 and find the
one value that will match the value in Sheet3!A1. I then
need it to copy that row.

 

[Myrna Larson]

Not sure what you want to copy, but X will contain the *column* number where
the match was found:

X = Application.Match(Worksheets("Sheet3").Range("A1"), _
Worksheets("Sheet2").Rows(1),0)