AutoFilter方法失败

Question

这个子程序突然停止工作;已添加新工作表，但此代码没有更改。知道为什么我收到消息“范围类的自动过滤方法失败”运行时错误1004？

Sub Hide_Row()

    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    Range("a6:HO499").AutoFilter Field:=2, Criteria1:="<>"

End Sub