Custom Header - incorporating contents of a cell

[inarbeth]

Is there an easy way of incorporating the contents of a cell in the Custom Header (or footer) for that page in a workbook? I want to incorporate a % figure in the header so that it updates when I amend the percentage figure in cell A1. The figure must be formatted as e.g. 5% and not .05.
Can this be done?

 

[agihcam]

code;

With ActiveSheet.PageSetup
        .CenterHeader = Format(Range("a1").Value, "0%")
    End With

 

[inarbeth]

Thanks for the prompt reply. How do I get this to work? I assume I right click the tab and choose View Code but then what?

 

[agihcam]

double click thisworkbook from vba project then paste this code;

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
        .CenterHeader = Format(Range("a1").Value, "0%")
    End With
End Sub

try to print preview