I've found this code:
Sub Finddata()
     Dim Rng as Range
     Set Rng = Range("A1:A12").Find(What:="1234", Lookat:=xlWhole, Lookin:=xlValues)
     Rng.Resize(1,3).Copy Destination:=Range("g1")
End Sub
Some questions:

1. I need the range to be a named range - I take it that is simple Range("rangename")?
2. At Find "(What:=" - what do replace "1234" with if it is to be textbox1 of userform1?
3. Rather than copy the range, how do I filter (using VBA) to show just that row?

Any help appreciated.