Excel第一行冻结，设置一个按钮点击进入下一页，第一行不变，怎么做，怎么写代码，

以30行为一页，点一次按钮自动下移30行，以此类推。

Dim r As Integer

Sub test()

r = r + 1

ActiveWindow.ScrollRow = r * 30

End Sub