craigwoycheesecpa
New Member
- Joined
- Dec 2, 2023
- Messages
- 5
- Office Version
- 365
- Platform
- Windows
I have tried using the combination of "& Arial, Bold after CenterHeader =, and it does not work. I am a newbie so please be patient.
Sub AddCustomHeaderFooters()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.PageSetup.CenterHeader = Worksheets("Sheet2").Range("B1").Value
ws.PageSetup.LeftHeader = Worksheets("Sheet2").Range("B2").Value
Next ws
End Sub
Sub AddCustomHeaderFooters()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.PageSetup.CenterHeader = Worksheets("Sheet2").Range("B1").Value
ws.PageSetup.LeftHeader = Worksheets("Sheet2").Range("B2").Value
Next ws
End Sub