excel同page下，换页解决思路

excel同page下，换页
如何用VB编写代码，实现在excel中,同一个sheet下换页。 如何在页面上画框？

[解决办法]
刚好有类似的代码，请参考。
Public Sub 向左翻页()
On Error Resume Next
If ActiveWindow.VisibleRange.Column <= 20 Then
ActiveWindow.ScrollColumn = 1
Else
ActiveWindow.ScrollColumn = ActiveWindow.VisibleRange.Column - 23
End If
End Sub
Public Sub 向右翻页()
On Error Resume Next
ActiveWindow.ScrollColumn = ActiveWindow.VisibleRange.Column + 23
End Sub