Excel VBA编程实现自动分页

Excel VBA编程，想实现自动分页功能。
一、需求
在表格的第1列中单元格值为“班级号”的前面插入分页符，实现自动分页功能，打印时分班级页打印。
二、代码实现

'定义一个过程 pagebreak
Sub pagebreak()
'
' pagebreak Macro
'首先定义一个计数器rw，从第2行开始遍历
'使用for…next循环进行遍历
'用if…then语句进行判断，在第1列值为"大标题"的前面添加分页符。
'
Page = 2 '从2班开始插入分页符号
For rw = 2 To ActiveSheet.Rows.Count
    If ActiveSheet.Cells(rw, 1).Value = Page Then
        ActiveSheet.Cells(rw, 1).Select
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
        Page = Page + 1
    End If
Next rw
MsgBox ("添加分页完成！")

End Sub