Re: header/footer link to cell?

From: Frank Kabel (frank.kabel_at_freenet.de)
Date: 05/26/04 

Date: Wed, 26 May 2004 23:55:26 +0200

Hi
for getting started with VBA see:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

As this is an event procedure also see:
http://www.cpearson.com/excel/events.htm

Currently this won't work for charts. If you want to include them use
Private Sub Workbook BeforePrint(Cancel As Boolean)
Dim wkSht
   For Each wkSht In me.Sheets
     With wkSht.PageSetup
        .CenterFooter = .range("A1").value
      End With
   Next wkSht
End Sub

to also cycle through chart sheets

And yes you could use .centerheader 

--
Regards
Frank Kabel
Frankfurt, Germany
"Suzanne" <anonymous@discussions.microsoft.com> schrieb im Newsbeitrag
news:12f2401c4436a$d904eeb0$a601280a@phx.gbl...
> Ok, this may be a little advanced for me, what is VBA?
> and is there a basic site you can suggest for intro to
> VBA?  Also, with this VBA function will it automatically
> place it on my chart worksheets?  And if I need a header
> do I change your formula to .centerheader=.range
> ("A1").value  ?
>
>
>
> >-----Original Message-----
> >Hi
> >you'll need VBA for this. Put the following
> >code in your workbook module (not in a standard module):
> >Private Sub Workbook BeforePrint(Cancel As Boolean)
> >Dim wkSht As Work***
> >   For Each wkSht In me.Worksheets
> >     With wkSht.PageSetup
> >        .CenterFooter = .range("A1").value
> >      End With
> >   Next wkSht
> >End Sub
> >
> >this links cell A1 of each *** to the footer
> >
> >--
> >Regards
> >Frank Kabel
> >Frankfurt, Germany
> >
> >"Suzanne" <anonymous@discussions.microsoft.com> schrieb
> im Newsbeitrag
> >news:12e6201c44367$3385b670$a301280a@phx.gbl...
> >> Is there a way to link the header and/or footer to a
> >> specific cell so that it will automatically update?
> >>
> >> Thanks
> >> Suzanne
> >
> >.
> >