Range in koptekst met opmaak?

[Demeter]

Heb mbv de macrorecorder de code voor het automatisch maken van mijn hoofd- en voettekst.
Deze wil ik graag aanpassen zodat mijn gegevens vanaf een ander blad op in de koptekst komen.

Sniplet:

With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = "&""Arial,Vet""&EINHOUDSBLAD ALGEMEEN"
        .CenterHeader = "&""Arial,Vet""&EProjectgegevens!B26"
        .RightHeader = "&P van &N"
        .LeftFooter = "ProRail project nr.:" & Range("Projectgegevens!B26")

Code in LeftHeader werkt met opmaak alleen zonder verwijzing (straight text).
Code in CenterHeader werkt niet maar heeft wel opmaak.
Code in LeftFooter werkt alleen zonder opmaak.
Graag heb ik twee werken de codes met opmaak!

Iemand die mij in de jusite richting kan wijzen?
Zou vooraf mijn Range moeten definieren met opmaak?


Bijvoorbaat dank,
Ferenc

 

[Demeter]

Werkende.

Heb het nu zo opgelost:

Sub KopVoettekst()

    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = "&""Arial,Vet""&EINHOUDSBLAD ALGEMEEN"
        .[COLOR="Red"]CenterHeader = "&""Arial,Vet""&E" & Range("Projectgegevens!B27")[/COLOR]
        .RightHeader = "1 van 1"
        .LeftFooter = "Bedrijfs project nr.: " & Range("Projectgegevens!B20")
        .CenterFooter = "Bestelnummer: " & Range("Projectgegevens!B21")
        .RightFooter = "Datum: _______________" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "Handtekening: _______________"
        .LeftMargin = Application.InchesToPoints(0.3)
        .RightMargin = Application.InchesToPoints(0.3)
        .TopMargin = Application.InchesToPoints(1#)
        .BottomMargin = Application.InchesToPoints(0.98)
        .HeaderMargin = Application.InchesToPoints(0.6)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        
    End With
End Sub

groet,
Ferenc