VBA to search for numbers

Private Sub cmdContact_Click()
 Dim DataSH As Worksheet
 On Error GoTo errhandler:


  Set DataSH = Sheet1
 DataSH.Range("L8").Value = cboSelect.Value
 DataSH.Range("L9").Value = txtSearch.Text
 DataSH.Range("B8").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=DataSH.Range("L8:L9") _
 , CopyToRange:=DataSH.Range("P8:X8")
 '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