View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
Bernard Liengme
 
Posts: n/a
Default Display result of formula in header?

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" wrote in message
...
I want my header to say "yyyy results", where yyyy is the current year.

Any suggestions?