Display result of formula in header?

H

Hubitron2000

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

Any suggestions?
 
C

CLR

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
 
B

Bernard Liengme

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
 
Top