excel vba隐藏filter箭头？

我正在使用以下脚本根据单元格值过滤我的行。 该脚本正常工作，但我试图摆脱那些恼人的过滤箭头显示。 我尝试了以下，但他们仍然显示：

Sub DateFilter() Dim nRow As Range Dim toSearch As Range 'hide dialogs Application.ScreenUpdating = False 'filter for records that have June 11, 2012 in column 3 If ActiveSheet.Range("B6").Value = "" And ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData Else Set toSearch = Range("A9:E13") 'detect row that matches criteria: Set nRow = toSearch.Find(ActiveSheet.Range("B6").Value) If Not (nRow Is Nothing) Then ActiveSheet.Range("E9:A13").AutoFilter Field:=nRow.Column, VisibleDropDown:=False, Criteria1:="*" & nRow.Value & "*" End If End If Application.ScreenUpdating = True End Sub 

请有人告诉我我哪里错了。 提前致谢