如何摆脱VBA中的范围失败错误？

Question

我正在使用带有在指令页面上分配了宏的表单按钮，并且根据选择的按钮，隐藏了一定范围的行。

我的每个宏都出现Method of range class failed错误，但是如果我调试代码并在AM Sheet上运行它时，代码就可以工作。

如何修改此内容，使其在说明页面上起作用？我忘了指定什么吗？

Sub Daily()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("AM")

ws.Rows("22:80").Select

'Hide everything below daily
Selection.EntireRow.Hidden = True

ws.PageSetup.PrintArea = "$A$1:$I$21"

'Unselect everything
Range("A1").Select

Application.CutCopyMode = False

End Sub