Post contents of a cell in the header/footer

  • Thread starter Thread starter MichaelRLanier
  • Start date Start date
M

MichaelRLanier

Is there a way to post the value of a cell in the header/footer of a
worksheet. For example, if A1 reflects a short text i.e. a business
name, can that name be made to show in a header/footer. Thanks.

Michael
 
You can use an event macro that fires when you print or print preview.

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
with Worksheets("Somesheetnamehere")
.PageSetup.LeftFooter = .Range("A1").Text
End With
End Sub


This code goes in the ThisWorkbook module.

If you're new to macros:

Debra Dalgleish has some notes how to implement macros here:
http://www.contextures.com/xlvba01.html

David McRitchie has an intro to macros:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Ron de Bruin's intro to macros:
http://www.rondebruin.nl/code.htm

(General, Regular and Standard modules all describe the same thing.)
 
Back
Top