why not use a combobox rather than a text box. You can set the combobox
property RowSource to sheet1!A1:A15 (or equivalent) which is the list of
chemicals. The combo box give you the option of either typing in the
item or selecting the item from the list.

To find an item in the workshett us the following


Chemical = "Oxygen"
set c = sheets("Sheet1").Range("A1:A15").find(what:=Chemic al, _
lookin:=xlvalues,lookat:=xlwhole)
if c is nothing then
msgbox("Cannot find chemical : " & Chemical")
else
foundrow = c.row
end if


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=159041

Microsoft Office Help