Put something like this in your Worksheet_BeforePrint Event. You can read
about workbook events here.

http://www.mvps.org/dmcritchie/excel/event.htm

Sub Workbook_BeforePrint(Cancel As Boolean)

Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "Proprietary"

.RightHeader = ""
.LeftFooter = "Left Footer"

.CenterFooter = "Center Footer" '& Chr(10) & "&P of &N"
.RightFooter = ""
.CenterHorizontally = True
.CenterVertically = False
End With
Application.ScreenUpdating = True
End Sub

"Dhilson" wrote:

I have a multiple page workbook and would like to have the same footer appear
on each worksheet within the workbook. Is there any way to do that without
creating the footer on each sheet?