cell content in footer? help

[Gerry]

I need to add the contents of a cell (persons name) in the
footer of only a single worksheet (so that when i print
another sheet from the sameworkbook normal rules apply!!)
when printing? Any ideas how?

 

[Andy Brown]

I need to add the contents of a cell (persons name) ...

... (so that when i print
another sheet from the sameworkbook normal rules apply!!)

Aren't footers sheet-specific?

David McRitchie has loads of event code, see
http://www.mvps.org/dmcritchie/excel/pathname.htm#beforeprint

You may or may not need to throw in an opening line such as

If ActiveSheet.Name<>"RightSheet" Then Exit Sub

Rgds,
Andy

 

[Bob Phillips]

Put this code in the Thisworkbook code module

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
ActiveSheet.PageSetup.LeftFooter = Range("A1")
End If
End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)