Вставить значение ячейки в нижний колонтитул

Question

может кто-нибудь мне помочь, пожалуйста, почему мой код для вставки значения ячейки в нижний колонтитул не работает?

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Flightdata")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Invoice #1")

            ws2.PageSetup.LeftFooter = format(ws1.Range("M3").Value, "dd-mmm-yyyy")
End Sub