Dmichaud61
Board Regular
- Joined
- Mar 7, 2014
- Messages
- 69
- Office Version
- 2016
- Platform
- Windows
Greetings All. The below code works great; however, how would I modify it to insert a report title left of the text pulled from B2:B" The report title won't change. For example, "This is My Report". I'm using Excel 2013 and Window 10. Thanks in advance!
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim fr As Long
fr = ActiveSheet.Range("B2:B" & Rows.Count).SpecialCells(xlVisible).Cells(1, 1).Row
ActiveSheet.PageSetup.LeftHeader = "&""Arial,bold""&11" & Cells(fr, "A").Value & Chr(10)
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim fr As Long
fr = ActiveSheet.Range("B2:B" & Rows.Count).SpecialCells(xlVisible).Cells(1, 1).Row
ActiveSheet.PageSetup.LeftHeader = "&""Arial,bold""&11" & Cells(fr, "A").Value & Chr(10)
End Sub
