修改“自定义自动筛选方式”的窗口跳出参数解决思路

修改“自定义自动筛选方式”的窗口跳出参数
Sub RunDialogFilter()
  y1 = " " & Format("456")
  Application.Dialogs(xlDialogFilter).Show 1, "<=" & y1
End Sub


这是我在网上找到的“自定义自动筛选方式”的窗口跳出的宏的参数，这个窗口默认显示是“小于或等于”如何默认显示“包含”？这些命令都叫什么？在哪可以查到？

------解决方案--------------------------------------------------------
ActiveSheet.Range("$A$1:$A$100").AutoFilter Field:=1, Criteria1:=">5"