contents of cell in footer

Posted by lenze on March 15, 2001 9:53 AM

Does anyone have a macro to place the contents of a cell on one sheet in the footer of all sheets?

Posted by Dave Hawley on March 15, 2001 10:52 AM

Hi lenze

Try this

Sub TryThis()
With ActiveSheet.PageSetup
.LeftFooter = Range("A1")
.RightFooter = Range("A2")
End With
End Sub

OzGrid Business Applications

Posted by Dave Hawley on March 15, 2001 10:54 AM

Oops, you said another sheet.

Sub TryThis()
With ActiveSheet.PageSetup
.LeftFooter = Sheets("Sheet1").Range("A1")
.RightFooter = Sheets("Sheet1").Range("A2")
End With
End Sub

OzGrid Business Applications

Posted by Mark on March 16, 2001 4:15 AM

where and how would I entry these commands

question here...exactly where and how would I entry these commands ? in the basic editor ?

thank you !

Posted by lenze on March 16, 2001 9:00 AM

Re: where and how would I entry these commands

Thanks Dave: It worked great

Mark: I entered the code in the Sheet Object Module, using Named Ranges for Cell References. It runs when you select an active cell on the sheet.