search rows

[jt46]

Is anyone know how to search rows from a texbox data given and it wil
return a row result? Thanks for your help.

Joh

 

[Tom Ogilvy]

Dim rng as Range, rng1 as Range
set rng = Cells.find(Userform1.Textbox1)
if not rng is nothing then
set rng1 = rng.entirerow
End if