Tom,

Here's a thought

Dim oFind As Range

Set oFind = Worksheets("Sheet2").Columns(1).Find("abcd")
If Not oFind Is Nothing Then
oFind.EntireRow.Copy Destination:=Cells(Rows.Count,
"A").End(xlUp)(2, 1)
End If


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"tom donino" wrote in message
...
I am trying to write code to program a button to look up
a stock symbol in column A on another sheet and write the
information on that row onto the next available row on
the master sheet. any thoughts?