checking the combobox value to filter data

[ivandgreat]

good day..
i have code to filter the listbox from the value on the combo box..
But am i receiving error "unable to get the match property of the worksheetfunction class"

<<< use code - tags >>>

Sub Refresh_Listbox()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Data")

Dim dsh As Worksheet
Set dsh = ThisWorkbook.Sheets("Data_Display")

''''''''''' Copy Data ''''''''''
dsh.Cells.Clear
sh.AutoFilterMode = False


If Me.cmbFilterBy.Value <> "ALL" Then
    sh.UsedRange.AutoFilter Application.WorksheetFunction.Match(Me.cmbFilterBy.Value, sh.Range("1:1"), 0), "*" & Me.txtSearch.Value & "*"
End If

End Sub