Cell referenced in Header

[-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.

 

[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

 

[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

 

[-Amor]

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

Any comments? Thanks.

 

[Frank Kabel]

Hi
see my response for using an event procedure. Not possible without VBA

 

[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