Add left footer with value in cell

[frankdethier]

hi

I want to add the text in cell B28 in the left footer of my current worksheet (called ''Report''). I thought this code would work, but it doesn't... any mistake here? Or code that does work?

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = Range("B28").Value
End With
End Sub

 

[rollis13]

Have you placed the macro in vba module "ThisWorkbook" ?

 

[frankdethier]

Have you placed the macro in vba module "ThisWorkbook" ?

Indeed, I added it as a module now and a separate macro. It works. thank you!

 

[rollis13]

Event 'Workbook_BeforePrint' is to be used in module 'ThisWorkbook' but nothing prevents you from using footer code in a macro in a standard module.
I'm glad if I've been of some help .