自动过滤方法失败

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

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