ExcelBanter - Custom Header

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Custom Header (https://www.excelbanter.com/excel-programming/404887-custom-header.html)

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

--
Thanks for your help.
Karen53

..CenterHeader = "&""Arial,Bold""&12" & NewHeader

Should be:

..CenterHeader = " &"Arial" &B &12" & NewHeader
I assume that NewHeader is a variable for the text.

"Karen53" wrote:

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

--
Thanks for your help.
Karen53