I have one workbook that contains 3 sheets. My problem is that there is information in the Left Header on Sheet 1 ("Summary") that needs to be copied to the Center Header on Sheet 3 ("Calculations") and the Center Footer on Sheet 2. The footer on Sheet 2 ("Pictures") can be the same font and size as the Left Header on Sheet 1 ("Summary"); however, The Center Header on Sheet 3 ("Calculations") needs to be Airal Bold, 24 Point.
I am trying to set up the workbook so that the user can update the information on Sheet 1 and it will automatically update the other Header & Footers automatically.
Any help would be greatly appreciated.
I already have a code that pastes the contents from cell K1 from Sheet 3 to the footer of Sheet 1 and it works like a charm if anyone wants it:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("Summary").PageSetup
.LeftFooter = Worksheets("Calculations").Range("K1").Value
End With
End Sub
This last code will finally complete this worksheet. Thank you in advance for any help.
Bookmarks