I want the same header, footer and column headings on about 8 sheets, but I
can't seem to get it to work. If I list just one page in the string it does,
but if I list all the sheets, it does not. Here is just a section of my code.
What am I doing wrong. Thanks for your help.

Sub PageSetup()

Sheets("NEW CONFIRM", "NEW GESV", "NEW GESA").Select

Rows("1:1").Select
Selection.Insert Shift:=xlDown

Range("A1").Select
ActiveCell.FormulaR1C1 = "Match/No Match"

Range("B1").Select
ActiveCell.FormulaR1C1 = "Original Table"

Range("C1").Select
ActiveCell.FormulaR1C1 = "CNO"

Range("D1").Select
ActiveCell.FormulaR1C1 = "Name"