Just change the first part to
Sheets(sheetNames(n)).PageSetup.CenterHeader = "&""Arial,Bold""&10 Technology Pillar Performance Report " & _