How can I add in variables for headers in VBA

[storemannequin]

I highlight in red where I'd like to insert some variable names for the column headers but things are not working out:

 With WSN.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
        .LeftHeader = "&""Calibri,Bold""&12HENRY SCHEIN INC"
        .CenterHeader = _
        "&""Calibri,Bold""&14SPECIAL MARKETS" & Chr(10) & LastSup & Chr(10) & "Voju7P-45868b & Year(Now) & The One Report" & Chr(10) & MonthName(Month(Date) - 1)
        .RightHeader = "&""Calibri,Bold""&12&D"
        .LeftFooter = "&6&F" & Chr(10) & "DMS"
        .CenterFooter = "&8&P of &N" & Chr(10) & "Proprietary Information"
        .CenterFooter = "Page &P of &N" & Chr(10) & "Proprietary Information"
        .CenterHorizontally = True
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1000
        .PrintGridlines = True
        
    End With

 

[jmthompson]

In what way is it "not working out"?

Can you show how you have defined LastSup?

 

[storemannequin]

actually the LastSup variable works but the Year(now) doesn't.

 

[jmthompson]

You're missing your end quote here:

"Voju7P-45868b