Insert cell value into footer

[nuficek]

Could anybody help me please why my code to insert cell value to the footer doesn't work?

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Sheet1")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Sheet2")

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

 

[MARK858]

Also describe how you are putting the code in the ThisWorkbook module.

 

[nuficek]

 

[MARK858]

View attachment 16627

Do you have a sub that you have called Format?

 

[nuficek]

Do you have a sub that you have called Format?

No, I don't. I'm a bit lost now. Why and where should I have sub if it works under worksheet_change?

 

[MARK858]

Because it isn't working when you are using the print options, it is working when you change cells and firing every time you change cells.

I asked about the sub name because the word format in the code should read as Format i.e. with a capital F and so it is working out why it isn't capitalizing as that is probably the same reason for your issue.

Have you used the name Format when declaring any variables?

 

[nuficek]

Because it isn't working when you are using the print options, it is working when you change cells and firing every time you change cells.

I asked about the sub name because the word format in the code should read as Format i.e. with a capital F and so it is working out why it isn't capitalizing as that is probably the same reason for your issue.

Have you used the name Format when declaring any variables?

You are right, I'm using Date picker code programmed by The FrankensTeam. And the "Format" is used there. So how can I fix that?

 

[MARK858]

Rename the variable and everywhere that it appears in the code.

 

[nuficek]

Rename the variable and everywhere that it appears in the code.

I was worried about your answer It would be too much work so keep it under worksheet_change. But it's good to know it to avoid problems in the future problems.
Anyway, thanks a lot for your help

 

[Michael M]

@MARK858

Rename the variable and everywhere that it appears in the code.

Dang, that's a good pickup Mark......

 

[MARK858]

Anyway, thanks a lot for your help

Your welcome

Dang, that's a good pickup Mark......

Michael, I was a bit suspicious when I first read the code and saw the f wasn't capitalised but at the time I was thinking that the OP had retyped it in the thread. A bit surprised that it was code by The FrankensTeam at it is a bit sloppy for them.