Cell values in Footer

Raymond · Apr 9th, 2002, 03:39 AM

Hello all,

Does anybody know if it is possible to put cell values in a footer? For example: I need the value of cell A1 of Sheet1 to appear in a footer. In regular sheets you just use =Sheet1!A1 . But such constructions do need work in the footer/header. Anyone? A solution? Thanks in advance!!!

Raymond

Dave Hawley · Apr 9th, 2002, 03:43 AM

Hi Raymond

Right click on the Excel icon, top left next to file and select "View Code", paste in this.

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

Raymond · Apr 9th, 2002, 03:57 AM

Thanks Dave! It works only for one sheet (Sheet1) like this, but I have the clue how to work with it ... thank you very much!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 9th, 2002, 03:39 AM	#1
Raymond New Member Join Date: Apr 2002 Posts: 2	Hello all, Does anybody know if it is possible to put cell values in a footer? For example: I need the value of cell A1 of Sheet1 to appear in a footer. In regular sheets you just use =Sheet1!A1 . But such constructions do need work in the footer/header. Anyone? A solution? Thanks in advance!!! Raymond

Apr 9th, 2002, 03:43 AM	#2
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Hi Raymond Right click on the Excel icon, top left next to file and select "View Code", paste in this. Private Sub Workbook_BeforePrint(Cancel As Boolean) If Me.ActiveSheet.Name = "Sheet1" Then Me.ActiveSheet.PageSetup.LeftFooter = Range("A1") End If End Sub

Apr 9th, 2002, 03:57 AM	#3
Raymond New Member Join Date: Apr 2002 Posts: 2	Thanks Dave! It works only for one sheet (Sheet1) like this, but I have the clue how to work with it ... thank you very much!