Hi,

I'm trying to add a custom header based on worksheet cell values, so I've
created the variable 'NewHeader'.  When I run the code, the header font is
HUGE even though I've indicated 12 pt.  What have I done wrong?

Sub AddNewInvoiceHeader(NewHeader, InvoiceName, ShName)

   If InvoiceName = "CAM" Then
       Sheets(ShName).PageSetup.PrintArea = "$E$10:$O$52"
   Else
       Sheets(ShName).PageSetup.PrintArea = "$S$10:$AC$52"
   End If
   With Sheets(ShName).PageSetup
       .LeftHeader = ""
       .CenterHeader = "&""Arial,Bold""&12" & NewHeader
       .RightHeader = ""
       .HeaderMargin = Application.InchesToPoints(0.5)
       .CenterHorizontally = True
       .CenterVertically = False
   End With

End Sub

Here is the code assigning 'NewHeader'L

   ThisYear = Left(LineItemspg.Range("E13"), 4)
   
   If MainPagepg.Range("D6").Value = "Yes" Then
       InvoiceType = "Reconciliation"
   Else
       InvoiceType = "Deposit"
   End If
   
   NewHeader = ThisYear & " " & InvoiceName & " Invoice " & InvoiceType