frankdethier
New Member
- Joined
- Mar 1, 2021
- Messages
- 9
- Office Version
- 365
- Platform
- Windows
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
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