I wonder if it’s easy to add a new FIND command to my existing contacts manager dB. Presently I have a combobox which gives me a list of 14 choices (Firstname, Lastname, etc), a textbox where I type my search criteria, and a listbox with 14 columns which displays the results. Everything works fine but at times it would be much easier/faster if I could type a word and thru the new FIND command I locate this record in my dB instead of using the 14 choices from the combobox. Below is the code which presently I use to locate a record and if possible I would prefer to keep this code and add a new one for the FIND command.

 Private Sub cmdContact_Click()
Dim DataSH As Worksheet
On Error GoTo errhandler:
  Set DataSH = Sheet1
DataSH.Range("T8").Value = cboSelect.Value
DataSH.Range("T9").Value = txtSearch.Text
DataSH.Range("B8").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=DataSH.Range("T8:T9"), CopyToRange:=DataSH.Range("V8:AJ8")
'Set myRng = Sheet1.Range("outdata")
ListBox1.RowSource = Sheet1.Range("outdata").Address(external:=True)
Exit Sub
errhandler:
'if error occurs then show me exactly where the error occurs
MsgBox "No match found for " & txtSearch.Text
On Error GoTo 0
Exit Sub
End Sub