» Change text in header when printing using VBA in Microsoft Excel

Question:
How Change text in header when printing .


Place the code below into a regular Module.

Sub VariableRow()

   Dim intCount As Integer, intCounter As Integer

   Range("A1").Select

   intCount = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(50),1)")

   Sheet1.PageSetup.PrintTitleRows = "1:1"

   For intCounter = 1 To intCount

      Range("A1").Value = "RepetitionLine " & intCounter & ". Page"

      ActiveSheet.PrintOut from:=intCounter, to:=intCounter

   Next intCounter

   Range("A1").Value = "RepetitionLine"

End Sub