I have the following code to set the worksheet headers. All lines in the
header are printing in the set font size FS but I want to have a different
font size for each variable/line of the header. Any help would be much
appreciated. ts1

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
Dim CoName As String
Dim EffDate As String
Dim InsType As String

CoName = Range("Sheet1!b2").Value
EffDate = Range("Sheet1!b4").Value
InsType = "My Text String"
FS = 22

For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.CenterHeader = "&""Arial,Bold""&" & FS & Chr(10) &
CoName & Chr(10) & InsType & Chr(10) & EffDate
Next wkSht
End Sub