Datum stempel in koptekst

[Girt04]

Goedemorgen,

Ik probeer een datumstempel van de datum van draaien van de VBA code toe te voegen in de koptekst. Ik heb een manier gevonden om de datum te tonen maar dan blijft deze wijzigen op het moment dat de datum veranderd. Ik gebruik nu de volgende code:

'Print instellingen toevoegen.
   Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ActiveSheet.Rows(1).Address
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = "&14&F"
        .RightHeader = "&14&D"
        .RightFooter = "&14&P/&N"
        .LeftMargin = Application.InchesToPoints(0.25)
        .RightMargin = Application.InchesToPoints(0.25)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .Orientation = xlLandscape
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .FitToPagesWide = 1
        .FitToPagesTall = 0
        .PrintArea = "$A:$AF"
    End With
    Application.PrintCommunication = True

Ik wil in de rechter koptekst de datum van draaien van de macro hebben als vaste waarde. Kan iemand mij helpen?

Groeten Girt04

 

[SjonR]

Plaats aub een voorbeeldbestand en geen deel van de code

 

[HSV]

Veranderd alleen bij het draaien van de code.

.RightHeader = "&14&," & format(date, "dd-mm-yyyy")

 

[Girt04]

Dank voor de snelle reactie! Het werkt!