VBA date header in PDF

[picklefactory]

Hi folks. Confused... as usual
I have the following code to export a ws to pdf and to just add the date from a cell value as the header. It works OK other than the fact that it keeps changing the date format to US mm/dd/yyyy where I'd like UK dd/mm/yyyy. I've tried changing the format in the source cell (P1) to various formats, but it just ignores it and sticks with US date format. I'm sure I'm missing something daft.... again. Any suggestions please?
Thanks

Sub AddHeader_CurrentSheetOnly()

'Add P1 from active sheet to active sheet's header
    
    Sheets("PAYROLL TO SEND").Select
    
    With ActiveSheet.PageSetup
        .LeftHeader = Range("P1").Value
    End With


' Save PDF copy of 'Payroll to Send' sheet
    
    Dim Path As String
    Dim SaveAsStr As String
    
    Path = Worksheets("PAYROLL TO SEND").Range("P1").Text
    SaveAsStr = "M:\COMPANY SHARED\wages 2\TIMESHEETS HISTORY\" & Path

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=SaveAsStr & ".pdf", _
        OpenAfterPublish:=True

End Sub

 

[footoo]

ActiveSheet.PageSetup.LeftHeader = Format(Range("P1"),"dd/mm/yyyy")

 

[picklefactory]

Simple as that!!!!
Perfect, thank you footoo. You all make it look so easy. Much appreciated.