批量设置顶端标题行宏

Sub 批量设置顶端标题行()
'
' Macro1 Macro
' 宏由 Lenovo User 录制，时间: 2010-9-19
'
' 快捷键: Ctrl+z

Dim st As String, i As Integer
  For i = 1 To 8
  st = Trim(Str(i)) + "月份"
 Sheets(st).Select
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$3"
        .PrintTitleColumns = ""
    End With
    Next i
 
End Sub

注：工作簿含有1-8月份职工燃油费8个工作表