The commented out line is giving me fits.
The MsgBox line is correct but I'm muddled on making the resize/copy
work.

Thanks,
Howard

Sub MeFindIt()
Dim rngFound As Range
Dim myFnd As String
myFnd = Sheets("Sheet1").Range("B2")
Set rngFound = Sheets("Sheet2").Range("B:B").Find(What:=myFnd, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows,
_
SearchDirection:=xlNext, _
MatchCase:=False)

If Not rngFound Is Nothing Then

'rngFound.Offset(, 1).Resize.Cells(1,
Columns.Count).End(xlToLeft).Column.Copy Sheets("Sheet1").Range("C2")

MsgBox "Match for " & """" & myFnd & """" & " in cell " &
rngFound.Address

Else
MsgBox "No match found. "
End If
End Sub

You're missing the row/col args for Resize()!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion