How do I copy the contents of a cell into a footer

[Guest]

Headers and footers consist of three parts - left, center, and right. In the
application I am currently working on I want to put a standard revison number
in the left part of the footer which will appear on all worksheets. In the
right section I want to put a page number of the form <section>-&[Page]. Can
I put the revison number in a cell on the first worksheet and reference it in
all the footers? If so, how do I do it? Note - the margins are not the same
across all worksheets.

 

[Gord Dibben]

With your revision number in A2 of Sheet1 run this macro.

Sub Cell_In_AllFooters()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Sheets
WS.PageSetup.LeftFooter = Sheets("Sheet1").Range("A2").Value
Next
End Sub


Gord Dibben MS Excel MVP


On Wed, 14 Mar 2007 11:39:49 -0700, AFD at FONO <AFD at