Is it possible for the user to be prompted to enter the
text to be included for all sheets - or can this macro
pull data from a specified field within the spreadsheet? I
tried using = Sheet1!A2 for example and got an error. I
might even want to pull the data from another file - how
can I specify the file name, sheet name, and cell within
the code instead of using quotes and entering the data in
the macro? Thank you!
-----Original Message-----
Kristie --


Sub EditPageFooter()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

ws.PageSetup.LeftFooter = "Hello World"

Next ws

End Sub


-----

Hope it Helps,

- Rodney POWELL
Microsoft MVP - Excel

Beyond Technology
Spring, Texas USA
www.BeyondTechnology.com



"Kristie" wrote in message
...
Is there any way to force all pages of a spreadsheet to
have the same Footer without affecting the other "page
set
up" options? Selecting all sheets and adding the footer
changes all sheets to the same settings otherwise.
Perhaps this could be done in VB? Thank you
Kristie