Cell referenced in Header

A

-Amor

I have a date in a cell (mm/dd/yy). Is it possible of
reference that date in a header so that ot reads:

Date: (mm/dd/yy)

Thanks.
 
P

Peo Sjoblom

You would need a formula

="Date: "&TEXT(A1,"(mm/dd/yy)")

--


For everyone's benefit keep the discussion in the newsgroup.

Regards,

Peo Sjoblom
 
F

Frank Kabel

Hi
you'll need VBA for this. Put the following code in your workbook
module (not in a standard module). It inserts cell A1 of each printed
sheet:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
Dim footer_val
For Each wkSht In Me.Worksheets
footer_val = wkSht.Range("A1").value
With wkSht.PageSetup
.CenterFooter = footer_val
End With
Next wkSht
End Sub
 
A

-Amor

This may work in the worksheet, but I can't get it to work
in the Header.

Any comments? Thanks.
 
P

Peo Sjoblom

Sorry, I misunderstood, you meant a header as in a printer header,
I just assumed you meant a header of a list.. You would need the before
print
event like in Frank's example

--


For everyone's benefit keep the discussion in the newsgroup.

Regards,

Peo Sjoblom
 
Top