Post contents of a cell in the header/footer

[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

 

[Dave Peterson]

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.)

 

[MichaelRLanier]

Thanks Dave. I'll be putting your info to work later today.

Michael