Display result of formula in header?

I want my header to say "yyyy results", where yyyy is the current year.

Any suggestions?

With the current year entered in A1,

Sub CellValueInHeader()
With ActiveSheet.PageSetup
.LeftHeader = Range("a1").Value & " Results"
End With
End Sub

Vaya con Dios,
Chuck, CABGx3



"Hubitron2000" wrote:

> I want my header to say "yyyy results", where yyyy is the current year.
>
> Any suggestions?

Here is a Workbook subroutine - in VBA Editor Project click ThisWorkbook;
and copy Sub there.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim dte As Date
dte = Date
With ActiveSheet.PageSetup
.LeftHeader = Format(dte, "yyyy") & " Results"
End With
End Sub

Found in Google Newsgroup search; acknowledgement to Bob Philips in
microsoft.public.excel.misc Fri, Nov 4 2005 1:01 pm

best wishes

--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"Hubitron2000" <Hubitron2000@discussions.microsoft.com> wrote in message
news:4CFD4DCD-2153-410A-A0B1-908BD8FA051F@microsoft.com...
>I want my header to say "yyyy results", where yyyy is the current year.
>
> Any suggestions?