hbp78

Here is a simple find using a userform. You have to create a userfor
with a textbox and a command button.


Private Sub CommandButton1_Click()
Dim rng As Range
With UserForm1
Cells.Find(What:=.TextBox1.Text, lookat:=xlPart).Select
End With
End Sub


Hopt this gets you started


Charle

--
Message posted from http://www.ExcelForum.com